Microsoft Excel

Herbers Excel/VBA-Archiv

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

Calendar.show

Betrifft: Calendar.show von: highman4
Geschrieben am: 14.07.2008 09:08:50

Liebe Excelfreunde,

Ich habe in einer Userform den Calendar eingebunden.
Aus diesem übergebe ich Werte in eine Textbox.
Nun möchte ich, daß wenn der Kalender geöffnet wird er mit dem aktuellen Datum (also z.B. 14.Juli 2008)öffnet. Weiß jemand wie ich das Problem lösen kann??????

Vielen Dank und viele Grüße

Marco

  

Betrifft: AW: Calendar.show von: UweD
Geschrieben am: 14.07.2008 09:19:18

Hallo

wenn es nicht schon automatisch so erscheint, dann notfalls eben so:


Private Sub UserForm_Activate()
    Calendar1.Value = Date
End Sub




Gruß UweD


  

Betrifft: AW: Calendar.show von: highman4
Geschrieben am: 14.07.2008 09:35:05

Hallo UweD,

Erscheint sinnvoll, was Du schreibst, er bringt mir aber eine Fehlermeldung.

Private Sub CommandButton1_Click()
Calendar1.Show
Calendar1.Value = Date
'Calendar1.Show
End Sub



Er sagt Fehler beim Kompilieren.
Methode oder Datenobjekt nicht gefunden.
Egal ob ich den Value Wert vor dem Öffnen oder nach dem Öffnen einfüge.
??????? Was mach ich falsch?????
Nehme ich den Value Wert ganz raus öffnet er den Kalender normal, allerdings immer im November 2005.


Vielen Dank und viele Grüße
Marco


  

Betrifft: AW: Calendar.show von: Rudi Maintaire
Geschrieben am: 14.07.2008 09:48:26

Hallo,

Calendar1.KalenderSteuerelementname=Date

Gruß
Rudi


  

Betrifft: AW: Calendar.show von: highman4
Geschrieben am: 14.07.2008 10:00:48

Hallo Rudi,

Calendar1.Calendarcontrol = Date

so funktioniert es.

Vielen vielen Dank und viele Grüße

Marco