Die Ausgangsformatierung ist "Text"
Aus "12/22/2006 7:24:23 PM"
Soll "22.12.2006 19:24:23" werden
ich habe mehrere Zellen wo sich dann auch mal die Zeichenlänge des Datums bzw. der Uhrzeit ändert
kann mir da jemand helfen?
Tabelle3 | ||||||||||||
| ||||||||||||
Tabelle3 | ||||||||||||
| ||||||||||||
Sub DatumAmerika2Europa()
Dim Text As String
Dim TextNeu As Date
Dim Tag As String
Dim Monat As String
Dim Jahr As String
Dim Stunde As String
Dim Minuten As String
Dim Sekunde As String
Text = Trim(ActiveCell.Value)
Monat = Month(Text)
Tag = Day(Text)
Jahr = Year(Text)
Stunde = Hour(Text)
Minuten = Minute(Text)
Sekunde = Second(Text)
TextNeu = Tag + "." + Monat + "." + Jahr + " " + Stunde + ":" + Minuten + ":"+Sekunde
ActiveCell.Value = TextNeu
End Sub