Kalendersteuerelement so programmieren das sich nur Mo. auswählen

28/03/2008 - 15:04 von Axel | Report spam
Hallo hab folgendes Problem:
Habe in Excel das Kalendersteuerelement in benutzung, möchte diese jetzt so
abàndern über VBA das sich nur noch Montage auswàhlen lassen.

Wer weis was was ich nicht finde
 

Lesen sie die antworten

#1 Peter Schleif
29/03/2008 - 10:49 | Warnen spam
Axel schrieb am 28.03.2008 15:04:

Habe in Excel das Kalendersteuerelement in benutzung, möchte diese jetzt so
abàndern über VBA das sich nur noch Montage auswàhlen lassen.



Die Auswahl im Kalendersteuerelement (bei mir 10.0) làßt sich AFAIK
nicht direkt auf bestimmte Tage beschrànken. Du kannst es aber sehr
einfach simulieren:

Private Sub Calendar1_Click()
If Weekday(Calendar1, vbMonday) <> 1 Then
Calendar1 = Calendar1 - Weekday(Calendar1, vbMonday) + 1
End If
End Sub


Etwas aufwendiger wird es, wenn Du erreichen willst, das wirklich nur
Klicks auf Montag akzeptiert werden. Dann brauchst Du eine zusàtzliche
Variable in der Du den alten Datums-Wert speicherst. Klickt der
Benutzer nun auf einen Montag, aktualisierst Du die Variable mit dem
Kalender-Datum, sonst umgekert. Etwa so wie im Code unten.

Peter


Dim datum As Date

Private Sub Calendar1_Click()
If Weekday(Calendar1, vbMonday) <> 1 Then
Calendar1 = datum
Else
datum = Calendar1
End If
End Sub

Private Sub UserForm_Initialize()
datum = Date - Weekday(Date, vbMonday) + 1
Calendar1 = datum
End Sub

Ähnliche fragen