ich habe eine Steuerelement-Toollbox mit Makors hinterlegt.
In einer Tabelle mit verschiedenen Uhrzeiten möchte ich nun die Uhrzeiten unterschiedlich farbig markiern. (14-15:59 gelb, 16 - 17:59 grün, usw).
Es soll aber nicht nur die Zelle mit der Uhrzeit,(Spalte D) markiert werden, sondern die Zeile A - K.
Mit diesem VBA (Auszug nachfolgend) habe ich das zwar soweit stehen, kommen jedoch mehr Spalten mit Daten hinzu, klappt das nicht mehr, da ich B25:O45 angegeben habe.
Kann mir jemand helfen ?
Viele Grüsse, Monika
Cells.Find(What:="16:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Range("B25:O45").Select
Selection.Interior.ColorIndex = 35
ActiveWindow.SmallScroll Down:=-12
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 16
End With