Hallo,

ich bin verzweifelt, ich habe eine Datei, in der bei der Datumsspalte der Tag und der Monat vertauscht ist. Um das Ganze zu beheben, wollte ich die Datumsspalte als Text formatieren.
Das klappt, wenn ich folgendes mache:
- Spalte markieren
- Data -> Text To Columns -> Fixed Width -> Text -> Finish

Wenn ich aber VBA verwende und das als Makro laufen lasse, bekomme ich bei den Spalten, an denen der Tag 13 ist
vorher:
LogDate
06/12/2023

nachher:
LogDate
12/6/2023

Was mache ich falsch?
Die Datei ist hier: https://www.herber.de/bbs/user/162356.xlsx
Der Code vom Macro ist folgender:
Sub AARTDateAsText()
'
' AARTDateAsText Macro
'

'
' find LogDate column
Range("A1").Select
Cells.Find(What:="LogDate", After:=ActiveCell, _
LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
LogDateCol = ActiveCell.EntireColumn.Column
LogDateColLetter = Split(Cells(1, LogDateCol).Address, "$")(1)


Columns(LogDateColLetter & ":" & LogDateColLetter).Select
Selection.TextToColumns Destination:=Range(LogDateColLetter & "1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 2), TrailingMinusNumbers:=True

End Sub


Danke für Eure Hilfe

Michael