Office: (Office 365) Registerfarbe an Wochenende anpassen

Sehr geehrte Forenmitglieder,

ich arbeite viel mit Excel und nähere mich langsam der VBA-Programmierung (Grundlagen).

Ich erstellte eine Monatsdatei mit 31 Tagestabellen (z. B. 01 für 01.05., 02 für 02.05., 03, ..., 30, 31). Über eine Eingabemaske (Dropdownmenü mit entsprechendem sverweis) kann ich den Monat und das Jahr eingeben, das jeweilige Datum berechnet sich auf den Tabellenblättern dann entsprechend.

Seit nunmehr einer Woche versuche ich, in den Registerfarben der Tagestabellen die Wochenenden abzubilden (gelb für Samstag, rot für Sonntag). Nach Eingabe des Datums in die Maske sollen die Wochenenden dann anhand der Registerfarben sichbar sein und sich entsprechend bei Änderung des Monats durch neue Eingabe immer wieder anpassen.

Da durch eine bedingte Formatierung eine Zelle in den Tagesblättern sich entsprechend des Tages färbt, könnte auch die dann vorhandene Füllfarbe ausgelesen und auf das Register übertragen werden.

Das übersteigt jedoch meine Kenntnisse bei weitem. Daher bitte ich euch hier um Unterstützung.

 

Hola,

was ist denn der tiefer Sinn hinter 31 komplett identisch aufgebauten Blättern?
Warum packst du das nicht auf ein Blatt?

Gruß,
steve1da

 

Hallo, der Sinn ist schon gegeben. Es ist eine dienstliche Datei zur täglichen Lagedarstellung. Ich habe als Beispieldatei nur das absolute Grundgerüst hochgeladen. Der Inhalt ist nicht weiter wichtig für meine Anfrage. Es geht mir allein um das Darstellen der Wochenenden als farbige Tabreiter.

Grüße

 

Hallo liebe Forenmitglieder,

zu meiner Ausgangsfrage habe ich "rumgebastelt" (nochmals mit Hilfe von Google).

Den Code habe ich auf ein Formularsteuerelement gelegt:

Option Explicit

Sub TestIt()
Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets
wks.Tab.ColorIndex = -4142
If wks.Name <> "Eingabe" And wks.Name <> "Berechnungen" And wks.Name <> "Hinweise" And wks.Name <> "Vorgabe PI ab 17.02.2021" And wks.Name <> "Vorgabe PI bis 16.02.2021" Then
Select Case Weekday(wks.Cells(1, 4))
Case 1, 31: wks.Tab.ColorIndex = 3
End Select
If wks.Cells(1, 10) = "Sa" Then wks.Tab.ColorIndex = 45
If wks.Cells(1, 10) = "So" Then wks.Tab.ColorIndex = 3
If wks.Cells(1, 7) = "Feiertag" Then wks.Tab.ColorIndex = 3
End If
Next
End Sub

Die Register werden nun entsprechend der Wochenenden eingefärbt. Allerdings entfernt der Code auch die Farben der weiteren Funktionsblätter. Diese wollte ich per Hand einfärben. Das liegt, denke ich, an dem fettgedruckten Codeteil, richtig?

Wie schaffe ich es, dass nur die entsprechenden Register der Tagesblätter 01-31 gefärbt werden?

Grüße, Enrico