doppelte, bedingte Formatierung per VBA festlegen für Kalender

[junjor]

Hallo werte Excel-Community,

ich möchte gerne per VBA-Code den Datumsbereich meines Kalenders (H13-H74) per bedingter Formatierung einfärben, und zwar so, dass die Wochenenden gelb und die Feiertage orange sind, wobei die Feiertage natürlich immer Vorrang haben müssen. 

Leider bekomme ich es nur mit der Formatierung für das Wochenende hin.
Aber sobald ich die Formatierung für die Feiertage hinzufüge, funktioniert das nicht. 

Wahrscheinlich kenne ich die richtige Code-Abfolge nicht, um beide Bedingungen zusammenzuführen und die Feiertage an erste Stelle zu stellen... ?!
Der Makro-Rekorder konnte mir da auch nicht weiterhelfen, da er diese Schritte irgendwie nicht aufzeichnet...
Kann mir jemand von euch auf die Sprünge helfen, wie der Code aussehen könnte? (Ich habe die Beispiel-Tabelle beigefügt.)


Ich habe folgende Formeln für die bedingten Formatierungen benutzt:

Feiertage: 

Code:

Sheets("Januar").Activate
    With Range("H13:H74")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=SVERWEIS(H13;Feiertage!$M$14:$M$27;1;0)"
        .FormatConditions(1).Interior.Color = RGB(255, 153, 0)
    End With

Wochenenden

Code:

Sheets("Januar").Activate
    With Range("H13:H74")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=WOCHENTAG(H13;2)>5"
        .FormatConditions(1).Interior.Color = RGB(255, 255, 0)
    End With

Danke schonmal und viele Grüße

[junjor]

die Problematik konnte dann doch dank des MacroRecorders gelöst werden!  

Gut zu wissen und "Danke" an:
https://www.herber.de/forum/archiv/1452t...t_auf.html