Supportnet Computer
Planet of Tech

Supportnet / Forum / WindowsXP

Bestimmte Zellen Farbig markieren





Frage

Hallo Zusammen, 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

Antwort von