Calendar1.value
31.12.2003 12:37:16
felix
habe in "Tabelle1" = sheets(1) einen Kalender eingefügt.
Dieser soll mit einem Doppelklick das Datum des Kalenders in die active Zelle
eintragen. Aber mit dem folgenden Code geht es nicht. Warum?
Private Sub Calendar1_Click()
ActiveCell.Value = Sheets(1).Calendar1.Value
End Sub
über eine Userform funktioniert der Code:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub
Was muß ich im oberen Code ändern damit das auch über eine Tabelle funktioniert und nicht nur über eine Userform.
Gruß und guten Rutsch an alle
Felix
Anzeige