Was ist an diesem Code falsch.
Der Code bleibt bei "Date" hängen.
Private Sub Calendar1_Click()
AufträgeEVC.TextBox7.Value = Calendar1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim datum2
datum2 = Date
Calendar1.Value = datum2
End Sub
Gruss Peter