Spaltenweiser Import von Daten

Option Explicit 

Sub Lesen() 
   Dim FileName As Variant    ' der Dateiname oder FALSE   
   Dim Handle As Integer      ' Dateinummer (FileHandle)   
   Dim strOneLine As String   ' eine (lange) Zeile als String   
   Dim arOneLine() As String  ' diese Zeile in (viele) Felder zerlegt   
   Dim lngZeile As Long       ' Zeilenzähler   
   Dim intSpalte As Integer   ' Spaltenzähler   
    
   FileName = Application.GetOpenFilename("CSV-Dateien,*.csv,Alle Dateien,*.*", , "Datei öffnen")   
   If FileName = False Then Exit Sub 
    
   intSpalte = 1 
   Handle = FreeFile 
   Open FileName For Input As #Handle 
   While Not EOF(Handle) 
      Line Input #Handle, strOneLine 
      arOneLine = Split(strOneLine, ";")   ' Delimiter changed to ";" from "|". Biber   
      For lngZeile = 0 To UBound(arOneLine) - 1 
         Cells(lngZeile + 1, intSpalte) = arOneLine(lngZeile) 
      Next 
      intSpalte = intSpalte + 1 
      If intSpalte > Columns.Count Then 
         Worksheets.Add after:=ActiveSheet 
         intSpalte = 1 
      End If 
   Wend 
   Close #Handle 
End Sub