Noch ne Frage
15.06.2005 23:47:20
Bryan
Ich möchte mit einem Code die ferien in meinem Kalender automatisch markieren.
In spalte a 530 bis a 534 stehen die Anfangstermine und in B daneben die endtermine.
Hier ist mein Ansatz aber das mit wenn Tag >= ferienanfang und
Sub Ferien_ein()
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
For f = 530 To 534
If Cells(z, s).Value >= Cells(f, 1) And <= Cells(f, 2) Then
Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau
End If
Next f
Next s
Next z
End Sub
könnt Ihr mir nochmal helfen
gruss Bryan
Anzeige