Klick zählen - dann beenden
24.11.2008 13:17:00
Frank
Vielleicht kann mir bei der absurden Idee doch jemand weiter helfen. In einem Arbeitsblatt wird durch Klick in eine Zelle eine UF geöffnet. In dieser UF befindet sich das Kalender - Steuerelement. Mittels folgenden Code,
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
ActiveCell.Offset(1, 0).Select
End Sub
wird das gewünschte Datum in die Zelle eingetragen, die darunter liegende Zelle wird angesteuert und ein erneuter Klick trägt wieder ein Datum ein usw. Nun wäre es schön wenn die UF nach dem neunten Klick automatisch geschlossen wird. Geht das überhaupt und wenn ja, wie?
Danke im Voraus!!!
Gruß Frank H.
Anzeige