Zahl in umgekehrtes Datum

Question

Wie kann ich 8 Ziffern in ein Datum umwandeln

z.B. 19841113

Answer 1

Hallo,

etwas so:

=DATUM(LINKS(A1;4);TEIL(A1;5;2);RECHTS(A1;2))

Gruss
Rainer

Answer 2

Hallo Unbekannte(r),

Zahl in Datum Umwandeln VBA

Gruß Hajo

Answer 3

Hallo Unbekannte(r),


Du hast das Datum umgedreht, damit folgender Code.

Option Explicit ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
'**************************************************
'* H. Ziplies *
'* 26.04.03; 14.11.05 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/ *
'**************************************************
' Datum umwandeln von 010205 in 01.02.05
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:C20,D3:D7")
' noch mehr Bereiche
' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing And _
Len(RaZelle.Value2) = 8 And IsNumeric(RaZelle.Value2) Then
Application.EnableEvents = False
RaZelle.Value = CDate(Mid(RaZelle.Value2, 7, 2) & "." & Mid(RaZelle.Value2, 5, 2) & "." _
& Mid(RaZelle.Value2, 1, 4))
RaZelle.NumberFormat = "dd/mm/yy;@"
Application.EnableEvents = True
Else
RaZelle.NumberFormat = "0"
End If
Next RaZelle
Application.EnableEvents = True
'ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub

Gruß Hajo