AW: Datum ohne Punkt eingeben - Korrektur
15.08.2005 11:02:32
Matthias
Hallo Johnny,
Max hat mich die führende Null erinnert:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat As String
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then
If Len(Target.Text) = 5 Then
dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & ".19" & Right(Target, 2)
ElseIf Len(Target.Text) = 6 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".19" & Right(Target, 2)
ElseIf Len(Target.Text) = 7 Then
dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & "." & Right(Target, 4)
ElseIf Len(Target.Text) = 8 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4)
End If
If dat <> "" Then
Application.EnableEvents = False
Target.Value = dat
Application.EnableEvents = True
End If
End If
End Sub
Gruß Matthias