ich habe eine Spalte mit Datum und Uhrzeit. Allerdings ist dieses Datum im Format "Monat.Tag.Jahr Stunden:Minuten".
Nun möchte ich durch einen Makro dieses Problem lösen. Erschwerend kommt hinzu, dass sich mitten in der Spalte das Datumsformat in "Tag/Monat/Jahr Stunden:Minuten" ändert.
Hierzu nun mein Lösungsansatz:
Spalte "A" markieren. Suchen und ersetzen: Punkt durch Punkt und gleichzeitig das Datumsformat auf "TT.MM.JJJJ hh:mm" festlegen. Anschließend das selbe Spielchen durchführen, jedoch "/" durch Punkt ersetzen und das Format auf "TT.MM.JJJJ hh:mm" setzen.
Der Makrorekorder zeichnet folgenden Code auf:
Columns("A:A").Select
Application.ReplaceFormat.NumberFormat = "d/m/yyyy h:mm"
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Application.ReplaceFormat.NumberFormat = "mm/dd/yyyy hh:mm"
ActiveCell.Replace What:="/", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Wenn ich diesen Code nun ausführe, bekomme ich eine Fehlermeldung: "Laufzeitfehler 1004; Anwendungs- oder objektdefinierter Fehler."
Wenn ich den Debugger wähle, markiert er mir immer die "...NumberFormat =..."-Zeile. Das Format wird anscheinend durch die englischen Begriffe, "Day", "Month" und "Year" definiert. Kann mir jemand einen Tipp geben - ich finde keine Lösung für dieses Problem?
Danke und Gruß
Uni
Beispiel-Tabelle:
SpalteA
01.13.2006 03:00
01.13.2006 03:15
13/01/2006 03:30
soll umgewandelt werden in
13.01.2006 03:00
13.01.2006 03:15
16.01.2006 03:30