Datum um das Jahr vervollständigen
Miriam
frohe Weihnachten wünsche ich.
Ich nutze folgenden Code, den mir Sepp netterweise erstellt hat.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("B7:B500")) Is Nothing Then
Application.EnableEvents = False
For Each rng In Intersect(Target, Range("B7:B500"))
If rng "" Then rng = DateSerial(Range("B1"), Range("B2"), rng)
Next
End If
ErrExit:
Application.EnableEvents = True
End Sub
Nun würde ich für eine andere Datei gerne eine Änderung des Codes vornehmen. Genauer gesagt soll nach der Eingabe Tag+MOnat nur noch aktuelle Jahr vervollständigt werden. Leider kann ich den Code nicht anpasssen.
Wer kann mir helfen?
Viele Grüße
Miriam