habe mir wieder mal ein Problem aufgelegt wo mir zum Schluss das nötige Fachwissen fehlt. Hoffe, das mir jemand weiterhelfen kann.
Ich habe eine Tabelle als Kalender aufgebaut. Per doppelklick in eine definierte Zelle öffnet sich eine userform wo sich Buttons befinden - je nachdem welche Zellen ich ausgewählt habe werden die ausgewählten Zellen mit den Eigenschaften des Buttons versehen. Sprich Button Interior ist Rot und caption ist U so wird die Zelle Rot gefärbt und mit einem U versehen.
Ich liefere mal ein Bildschirmfoto mit, da die Datei zu umfangreich ist.
Wie mache ich es aber, dass die zellfelder welche grau hinterlegt sind ignoriert werden. Diese Felder sind bedingte Formatierungen auf den Samstag und Sonntag bezogen. Feiertage werden über ein Makro eingefärbt. Einerseits würde es mir schon helfen dach datum die sache zu selektieren - wollen klein anfangen.
Mein Beispiel bezieht sich auch nur auf die erste Spalte - funktioniert nicht - bräuchte dies für die restlichen Spalten auch + Monate.
Habe versucht logisch ranzugehen - ist garantiert wieder ein kleiner fehler. Bitte nicht lachen.
https://www.herber.de/bbs/user/38368.xls
Gruß Frank
Private Sub CommandButton_urlaub_Click()
For s = 2 To 34
If Format(Cells(s, 1), "dd ddd") Then GoTo sprung2
Selection.Value = CommandButton_urlaub.Caption
Selection.Interior.Color = CommandButton_urlaub.BackColor
sprung2:
Next s
End Sub