Farbanpassung
17.11.2005 13:12:40
Dirk
Habe hier ein Makro um Ferientermine optisch anzuzeigen.
Nach Aufarbeitung bin ich auf ein Problem gestoßen, da die Zelle nun standartmäßig
hellgrau statt keine Farbe hat funktioiert dies Makro nicht mehr.
Mit meinem vba Wissen bin ich leider nicht in der Lage dies zu ändern,
bin für jede Hilfe dankbar
Dirk
Option Explicit
Sub ferientermin()
Dim s, sp As Integer
Dim spp As Integer
Dim z, zz As Integer
Dim such As Date
Dim suchz As Date
Dim farb As Integer
For sp = 2 To 32 Step 2
If sp >= 4 Then farb = 40 Else farb = 36
For s = 3 To Worksheets("Ferientermine").Range("B65536").End(xlUp).Row
If Worksheets("Ferientermine").Cells(s, sp) <> "" Then
such = Format(Worksheets("Ferientermine").Cells(s, sp), "dd.mm.yyyy")
suchz = Format(Worksheets("Ferientermine").Cells(s, sp + 1), "dd.mm.yyyy")
End If
zz = 3
Do While Worksheets("Kalender").Cells(zz, 2) <> such
zz = zz + 1
Loop
zz = zz - 1
Do While Worksheets("Kalender").Cells(zz, 2) <> suchz
zz = zz + 1
For spp = 1 To 26
If Cells(zz, spp).Interior.ColorIndex < 0 Then
Cells(zz, spp).Interior.ColorIndex = farb
End If
Next spp
Loop
Next s
Next sp
End Sub