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...???
|