AW: Steuerelement Calendar
18.02.2006 17:24:09
PeterW
Hallo Josef,
die Wochenenden sind kein Problem:
Option Explicit
Private Sub CommandButton1_Click()
If Weekday(Calendar1, vbMonday) = 5 Then
Calendar1 = Calendar1 + 3
Else
Calendar1 = Calendar1 + 1
End If
End Sub
Private Sub UserForm_Initialize()
If Weekday(Date, vbMonday) > 5 Then
Calendar1 = Date + 8 - Weekday(Date, vbMonday)
End If
End Sub
Feiertage sind etwas aufwändiger, allein schon wegen regionaler Unterschiede. Am einfachsten wäre es, alle in ein Array zu schreiben und für jede Änderung das Array zu durchlaufen. Berücksichtigt werden müssten dann die Sonderfälle Feiertag am Montag und Freitag.
Gruß
Peter