For Each o. andere Schleife?
Fritz
Auf dem Tabellenblatt "Start" stehen in Zelle "G33" die Uhrzeit "6:30", in Zelle "H33" die Uhrzeit "9:30"
Auf meinem dank Hans Herber angelegtem Tabellenblatt "Kalender" stehen in der ersten zeile die Uhrzeiten ab 6:00 bis 21:00
in Halbstundenschritten - wobei nach jedem Schritt eine Zelle "Bemerkungen" eingefügt ist.
Erreichen möchte ich, dass ich mit einer Schleife den Bereich im "Kalender", der mit den Werten der Zellen G33 und H33
im Tabellenblatt "Start" übereinstimmt, gelb einfärbe.
Dazu habe ich das untenstehende Makro geschrieben, von dem ich finde, dass es schon ganz gut aussieht;-). Funzt aber leider nicht,
was mich sehr schleift:-((
Kann mir mal wieder jemand helfen?
Sub BelegteZeiten()
Dim tbs As Worksheet, tbk As Worksheet
Dim i%, r%, c%
Dim Zelle As Object
i = 1
Set tbs = Worksheets("Start")
Set tbk = Worksheets("Kalender")
r = ActiveCell.row
c = ActiveCell.Column
For Each Zelle In Range(Cells(r, 4), Cells(r, 65))
If Format(tbk.Cells(r, 2), "dddd") = tbs.Range("F33").Value _
And Cells(1, c) <= tbs.Range("H33") >= tbs.Range("G33") Then '''Wenn ich das umdrehe, wird der gesamte Range eingefärbt
Zelle.Interior.ColorIndex = 6
End If
Next Zelle
End Sub
Grüße, Fritz