Kalendersteuerelement aktivieren
timo
ich versuche nun verzweifelt das Kalendersteuerelement in meiner excelmappe zu aktivieren mit dem Code den ich hier im Forum gefunden habe. Leider funktioniert das bei mir nicht. Vielleicht kann mir dabei jemand mit Rat zur Seite stehen.
Besten Dank
Sie sieht das Makro aus das ich in diese Arbeitsmappe kopiert habe.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I4:I24")) Is Nothing Then
Cancel = True
With frmPopupCalendar1
If IsDate(Target) Then
.Calendar1 = Target
Else
.Calendar1 = Date
End If
.Show
End With
End If
End Sub
Private Sub CommandButton1_Click()
'OK-Button > Datum übernehmen!
ActiveCell = CDate(Calendar1)
Unload Me
End Sub
Private Sub CommandButton2_Click()
'Abbrechen-Button > UF schliessen ohne Datum zu übernehmen!
Unload Me
End Sub
Anzeige