Calendar-Wert übergeben
17.10.2006 16:50:36
Frank68
ich habe ein calendar-Steuerelement in ein Excel-sheet eingebunden und möchte auf Klick den Wert in die aktive Celle übergeben.
Folgender Code:
Private Sub Calendar1_Click()
With ActiveCell
Dim datum As Date
datum = Calendar1.Value
ActiveCell.Value = datum
End With
End Sub
Klappt aber so nicht. Wer kann helfen?
Anzeige