Wochenenden und Feiertage farbig unterlegen

Moin Excellianer!
Meine Versuche enden im Nix... ...und im Archiv finde ich vieles, aber auch das kann ich für meine Fragestellung irgendwie nicht umsetzen.
Vorab: Bedingte Formatierung ist nicht möglich, da diese Möglichkeit teilweise bereits voll ausgeschöpft ist. Deshalb ist eine Lösung mit VBA für mich die einzige Möglichkeit.
In der Spalte C16:C5001 steht jeweils pro Zelle ein Datum im Format tt.mm.yyyy
Wenn ein Datum Sonnabend, Sonntag und/oder einem Feiertag* entspricht, dann soll die Zeile in der dieses Datum steht, von Spalte B bis Spalte O, blau unterlegt werden.
ABER: ....es soll nicht fest formatiert sein! Wenn in der Zelle das Datum zu einem Werktag wechselt, dann soll alles wieder "normal" sein (Zellenhintergrund weiß und die Schrift schwarz bzw. automatisch). Dieser Datumswechsel ist ständig, da Daten Zeit-Unspezisches eingegeben werden und dann greift eine Auto-Sortierung nach jeder Eingabe.
* ...wenn das mit dem Feiertagen zu kompliziert ist, dann muss es nicht unbedingt sein. Es wäre alllerdings kein Problem,die jeweiligen Jahres-Feiertage in einem anderen Tabellenblatt in einer Spalte zu hinterlegen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Lenni() Dim rngLenni As Range Range("B16:O5001").Interior.ColorIndex = xlNone For Each rngLenni In Range("C16:C5001") If Weekday(rngLenni) = 1 Or Weekday(rngLenni) = 7 Then Range("B" & rngLenni.Row & ":O" & rngLenni.Row).Interior.ColorIndex = 7 End If Next End Sub

Hallo Lenni
hab nochmal überarbeitet:
in Tabelle1



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Bereich")) Is Nothing And Target.Count = 1 Then
Lenni
End If
End Sub

Range("Bereich") ist ein Name und bezieht sich auf C16:C50 der Tabelle1

in ein Modul


Option Explicit
Sub Lenni()
Dim LoLenni As Range
On Error GoTo ErrExit
With Worksheets("Tabelle1")
.Range("B16:O50").Interior.ColorIndex = xlNone
For Each LoLenni In .Range("Bereich")
If Weekday(LoLenni) = 1 Or Weekday(LoLenni) = 7 Then
.Range("B" & LoLenni.Row & ":O" & LoLenni.Row).Interior.ColorIndex = 5
End If
Next
End With
Exit Sub
ErrExit:
MsgBox "mindestens ein Wert im Bereich ist kein Datum"
On Error GoTo 0
End Sub

Bild:
Userbild
der Bereich der Daten ist zusätzlich bedingt formatiert und hebt sich somit ab.
Formeln ab C17 (=C16+1) usw.

hier das Sheet
https://www.herber.de/bbs/user/59334.xls

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Wochenenden und Feiertage farbig unterlegen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wochenenden und Feiertage farbig unterlegen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread