gibt es eine Möglichkeit das Datum ohne Punkt einzugeben und Excel wandelt das Datum korrekt um.
Beispiel
Eingabe 0503 in der Zelle wird dann 05.03.2017(immer aktueller Jahr) übernommen.
Gruss
miri
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("A1:A100")
If Not Intersect(Target, Bereich) Is Nothing Then
For Each Zelle In Intersect(Target, Bereich)
If IsNumeric(Zelle) And Len(Zelle) = 4 Then
Application.EnableEvents = False
Zelle = Format(DateValue(Left(Zelle, 2) & "." & Mid(Zelle, 3, 2) & "." & Year(Date)), "DD.MM.YYYY")
Application.EnableEvents = True
End If
Next
End If
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub