vielen Dank für die schnelle Hilfe....aber als Leihe find ich das nicht so einfach...:-(

habs jetzt so eingefügt...???

Sub ReadfromCSVSimple(fname As Variant, Optional fs As String = ";")

Dim hfile     As Integer   ' Filehandle bzw. Dateinummer
Dim lAnzahl   As Long      ' Zähler über alle Zeilen
Dim OneLine   As String    ' eine Zeile als String
Dim myArr     As Variant   ' eine Zeile in Felder getrennt
Dim myArrRows As Variant  ' Array zum Trennen des csv in mehrere Zeilen
Dim lnglast   As Long
Dim zeichen   As Variant
Dim iCnt      As Integer  'Schleifenzaehler fuer Array. Bei vielen Daten Long nehmen
   
ThisWorkbook.Worksheets("Projektübersicht").Select
lnglast = Cells(Rows.Count, 1).End(xlUp).Row
If IsEmpty(Cells(lnglast, 1)) Then lnglast = Cells(lnglast, 1).End(xlUp).Row
lnglast = lnglast + 1 ' ermittelt die erste freie Zeile

hfile = FreeFile
  
  
   
        Open fname For Input As #hfile
   
        
        Line Input #hfile, OneLine


       
        If OneLine <> "" Then ' ist die Zeile NICHT leer?
        
        
       
        myArrRows = Split(OneLine, Chr(10)) 'erst mal in "Zeilen" trennen, Zeichen 0A
       
        myArr = Split(OneLine, fs) ' dann am Trennzeichen separieren
        
        myArr = Split(myArrRows(iCnt), fs) ' dann am Trennzeichen separieren
        
        If UBound(myArr) > 1 Then
         
         With Worksheets("Projektübersicht")
        .Cells(lnglast, 33) = Replace(myArr(15), Chr$(34), vbNullString) 'Firma/ Name
        .Cells(lnglast, 37) = Replace(myArr(17), Chr$(34), vbNullString) ' Straße
        .Cells(lnglast, 35) = Replace(myArr(18), Chr$(34), vbNullString) ' PLZ

geht leider noch nicht....oder muss dieser Code genau in die Zeile 2 und 5 wie in Deinem Beispiel...???