Codeanpassung
30.01.2022 10:35:05
Thomas
ich habe folgendes Problem. Ich lasse mir Daten aus einer CSV-Datei in meine Exeldatei übertragen und das hat bisher auch alles funktioniert aber leider hat sich an der
CSV-Datei was geändert. Es ist eine weitere Spalte dazu gekommen und nun bleibt mein Code zur Übertragung hängen (Laufzeitfehler 13, Typenunverträglichkeit)
Set wksCSV = wbCSV.Worksheets(1)
ZeileCSV_1 = 14
ZeileCSV_L = ZeileCSV_1
With wksCSV
'letzte Zeile mit Datum in Spalte A suchen
Do
With .Cells(ZeileCSV_L, 1)
strDatumCSV = .Text
.NumberFormat = "YYYY-MM-DD"
.Value = CDate(strDatumCSV) <<<<<<<
End With
ZeileCSV_L = ZeileCSV_L + 1
Loop Until Not IsDate(.Cells(ZeileCSV_L, 1).Text)
ZeileCSV_L = ZeileCSV_L - 1
'Sortieren nach Datum
If ZeileCSV_L > ZeileCSV_1 Then
With .Range(.Rows(ZeileCSV_1 - 1), .Rows(ZeileCSV_L))
.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
End With
End If
Durch löschen der Spalte C in der CSV rückt zwar alles wieder dort hin aber es geht noch immer nicht. Mir wurde und konnte schon einige male geholfen werden und
daher bin ich auch überzeugt das es dieses mal auch klappt. Danke
Gruß Thomas