Was mach ich falsch ?
25.02.2005 01:27:02
Hans
Was ich versuche, dürfte man sehen aber es geht net, warum ?
Sub Sonntage_Rot()
For n = 1 To 12
sp = (n - 1) * 17
If Weekday(Range(Cells(18, sp + 3), Cells(48, sp + 4)).Value) = 1 Then
Range(Cells(18, sp + 3), Cells(48, sp + 4)).Font.ColorIndex = 3
End If
Next n
End Sub
Hab net viel Ahnung ( werd mer siehe), bitte um Hilfe
mfg Hans