ich habe folgendes Problem:
Über nachfolgende Routine lese ich eine csv-Datei ein. Funktioniert auch fehlerfrei (dank nochmal an das Forum).
Nun möchte ich die Routine so abändern, dass jeweils eine neues Tabellenblatt angelegt wird, sobald sich in der Spalte E in der csv-Datei der Wert ändert (in der csv-Datei sind die Werte nach Spalte E sortiert).
Hat jemand eine Idee, was ich tun muss?
Function auto_open()
Dim strTxt As String, lngI As Long, myarr
Dim Pfad
Pfad = InputBox("Bitte geben Sie den Pfad inkl. Dateiname und Extension an", "Dateiimport", "*.csv")
Open Pfad For Input As #1
lngI = 1
Do Until EOF(1)
Line Input #1, strTxt
myarr = Split(strTxt, ";")
Range(Cells(lngI, 1), Cells(lngI, UBound(myarr) + 1)) = myarr
lngI = lngI + 1
If lngI > 65536 Then
Sheets.Add after:=ActiveSheet
lngI = 1
End If
Loop
Close #1
End Function
Danke
Torsten