Microsoft Excel

Herbers Excel/VBA-Archiv

Calendar-Wert übergeben

Betrifft: Calendar-Wert übergeben von: Frank68
Geschrieben am: 17.10.2006 16:50:36

Hallo an die Excelperten,

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?
  


Betrifft: AW: Calendar-Wert übergeben von: Willie
Geschrieben am: 17.10.2006 17:03:14

Hallo Frank
versuch es mal so:

Private Sub Calendar1_Click()
With ActiveCell
Dim datum As Date
datum = Calendar1.Day & "." & Calendar1.Month  & "." & Calendar1.Year
ActiveCell.Value = datum
End With
End Sub


Gruß

Willie


  


Betrifft: AW: Calendar-Wert übergeben von: Frank68
Geschrieben am: 17.10.2006 17:10:03

Danke, hab´s zwischenzeitlich so probiert und klappt auch:

Private Sub Calendar1_Click()
With ActiveCell
ActiveCell.Value = Calendar1.Wert
End With
End Sub


Grüße.