Habe wieder mal ein Problem :
Ich habe einen Kalender. Zum Eintragen wird eine UserForm mit OptionButtons aufgerufen mit welcher man
die Eintragung auswählen kann.
Es werdn zum Eintragen die Zellen neben dem Datum markiert.
Nach der Auswahl wird auch alles der Wert überall ausser bei Wochenenden eingertragen.
Bis dahin ist es OK.
Jetzt will ich, wenn in den ausgewählten Tagen ein Feiertag ist, dass der Wert auch nicht eingetragen wird.
Meine Feiertage habe ich in einer extra Tabelle im Bereich F4 : F 24 eingetragen.
Mein Problem ist, dass ich es nicht schaffe die Abfrage in den unten stehenden Code einzufügen.
Private Sub OptionButton1_Click()
Dim b As Range
Set b = Selection
For Each b In Selection
If Weekday(Cells(b.Row, 3)) > 1 And Weekday(Cells(b.Row, 3)) _
< 7 And Weekday(Cells(b.Row, 3)) Then
b = "FS"
End If
Next b
End Sub
Hoffe ihr könnt mir helfen.
mfg
Harry_W