Datumsumwandlung
22.08.2002 08:50:28
Werner
ich habe folgendes kleine Makro, das mir den Datumswert umwandelt. Z.B. von 70971 in 07.09.1971. Das funktioniert soweit ganz gut, bis bei älteren Daten Kleiner Jahr 1930 wird anstelle 1925 das Jahr 2025 ausgegeben.
Das Makro habe ich angefügt. Was ist falsch?
Sub Mein_Datum()
Dim Zelle As Range
Dim TagLänge As Byte
For Each Zelle In Selection
If Not IsDate(Zelle.Value) Then
If Len(Zelle.Value) = 5 Then TagLänge = 1 Else TagLänge = 2
Zelle.Value = DateSerial(Right(Zelle.Value, 2), _
Mid(Zelle.Value, TagLänge + 1, 2), _
Left(Zelle.Value, TagLänge))
End If
Next
End Sub