Hallo,
mit VBA ändere ich mit folg Code den Wert in der Zeile 2 in ein Datum um.
Die Zellen werden mit "Enter" abgeschlossen ("TextToColumns" etc), damit der Zellinhalt auch als Datum erkannt wird.
Mit ls02 bzw ls03 ist die erste und letzte Spalte definiert, welche bearbeitet werden soll.
Dies funktioniert bis Spalten Nr. 727 = AAZ tadellos.
Die folgende Spalte Nr. 728=ABA wird dann nicht mehr richtig formatiert bzw nicht mit "Enter" abgeschlossen.
(Im Debugger habe ich natürlich die letze Spalte=ls03 kontrolliert, diese ist in der Schleife noch nicht erreicht)
Habt Ihr eine Idee woran dies liegen könnte bzw. gibt es einen anderen Ansatz ?
Viele Grüße
Hermann
Rows("2:2").Select ' Datumzeile wird über Text in Spalten in Datum formatiert
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
On Error Resume Next
For i = ls02 To ls03
With Worksheets("Daten").Range(aNach(i) & "2" & ":" & aNach(i) & "2")
.NumberFormat = "dd.mm.yy"
.TextToColumns _
Destination:=Worksheets("Daten").Range(aNach(i) & "2"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(1, 4), _
TrailingMinusNumbers:=True
End With
Next i