Liebe VBA Spezialisten,
ich habe ein Problem eine gefundene Spalte zu formatieren.
Folgenden befehl habe ich geschrieben, jedoch führt dieser nicht zum erfolg.
Ich möchte in der ersten Reihe alle Datum welche Samstag und Sontag sind
mit zwei verschiedenen Kontrasten bis zum Ende der Spalte farbig markieren.
Sub Datum()
Dim r As Range
Dim rFT As Range
Dim bolFT As Boolean
For Each r In Range("A1:AE1")
If IsDate(r.Value) Then
bolFT = False
For Each rFT In Range("Feiertage")
If rFT.Value = r.Value Then
bolFT = True
Exit For
End If
Next
If Weekday(r.Value, vbMonday) = 6 Then
With Range(Cells(Rows.Count, r.Column).End(xlUp).Row) '
Ich danke euch im Voraus