Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Calendar .ShowDateSelectors

Betrifft: Calendar .ShowDateSelectors von: IngoH
Geschrieben am: 17.09.2006 11:37:25

Hallo allerseits,

wie kann ich eine Auswahl von Jahr oder Monat
in dem Menü .ShowDateSelectors des Calendar abfragen,
ohne erst einen einzelnen Tag anklicken zu müssen ?

Gruß, Ingo

  


Betrifft: AW: Calendar .ShowDateSelectors von: Herby
Geschrieben am: 17.09.2006 13:47:06

Hallo Ingo,

meinst du so was ?

Private Sub CommandButton1_Click()
'UserForm1.Calendar1.ShowDateSelectors = False
MsgBox UserForm1.Calendar1.Month
MsgBox UserForm1.Calendar1.Year
End Sub


viele Grüße
Herby


  


Betrifft: nein - aber gelöst von: Ingo
Geschrieben am: 17.09.2006 14:05:10

Hallo Herby,

bei Deiner Abfrage gibt er mit die Werte aus dem gewählten
Tag zurück. So weit ja auch nicht das Problem.
Wähle dann einmal einen anderen Monat oder Jahr aus
und laß die MsgBox noch einmal die Werte anzeigen.
Der Kalender setzt sich auf "keine Auswahl" zurück und Deine
Abfrage ergibt zwangsläufig "0".

In den Ereignissen NewYear oder Month mit
Calendar.ValueIsNull = False
wird der 1.des gewählten Monates automatisch aktiviert.
Und damit kann man die Änderung ganz gut auslesen.

Ingo