Sub LetzterSonntag()
Dim Zeile
For Suche = 1 to 31
If Weekday(Range("A" & Zeile).Value) = VbSunday then Zeile = Zeile + 1
Next
Range("A" & Zeile).Interior.ColorIndex = 3 '3 = Hintergrundfarbe ROT
Range("A" & Zeile).Pattern = xlSolid
Zeile = 0
End Sub
Sub LetzterSonntag()
Dim Zeile as integer
dim Suche as integer
For Suche = 1 to 31
If Weekday(Range("A" & Suche).Value) = VbSunday then Zeile = Suche
Next
Range("A" & Zeile).Interior.ColorIndex = 3 '3 = Hintergrundfarbe ROT
Range("A" & Zeile).Pattern = xlSolid
End Sub
Sub LetzterSonntag()
Dim Zelle As Range
Dim letztsonn As Range
For Each Zelle In Range("C5:Ag5")
If Weekday(Zelle) = vbSunday Then Set letztsonn = Zelle
Next
letztsonn.Interior.ColorIndex = 3 '3 = Hintergrundfarbe ROT
letztsonn.Interior.Pattern = xlPatternSolid
End Sub
Sub LetzterSonntag()
Dim Zelle As Range
Dim letztsonn As Range
For Each Zelle In Range("C5:Ag5")
If Weekday(Zelle) = vbSunday Then Set letztsonn = Zelle
Next
letztsonn.Interior.ColorIndex = 3 '3 = Hintergrundfarbe ROT
letztsonn.Interior.Pattern = xlPatternSolid
letztsonn.offset(41,0).Interior.ColorIndex = 3 '3 = Hintergrundfarbe ROT
letztsonn.offset(41,0).Interior.Pattern = xlPatternSolid
End Sub