312 Aufrufe
Gefragt in Tabellenkalkulation von
Hi Leute

Mein Makro sucht in meinem Arbeitsblatt nach Zahlen 1,2,3

Sub bedingte_Formatierung_mehr_als_3()
Dim rgZelle As Range
For Each rgZelle In ActiveSheet.UsedRange
With rgZelle
Select Case .Value
Case "1"
.Interior.ColorIndex = 3
Case "2"
.Interior.ColorIndex = 4
Case "3"
.Interior.ColorIndex = 5 ' usw.
Case Else ' bei Bedarf, wenn kein Wert bei obigen Case enthalten ist
.Interior.ColorIndex = xlNone
End Select
End With
Next rgZelle
End Sub


Aber wie kann man das Makro verwenden das die Zahlen 1,2,3
Nur in den Zeilen 4 +5 sucht und nicht im gesammten Arbeitsblatt.
Für die Profis ein Klacks aber ich bekomms nicht gebacken.
Vielleicht kann mir jemand helfen

2 Antworten

0 Punkte
Beantwortet von
Hi all ^^

Ersetze diese Zeile
For Each rgZelle In ActiveSheet.UsedRange

durch
For Each rgZelle In Range(Cells(4, 1), Cells(5, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column))


Gruß Nighty
0 Punkte
Beantwortet von
Hi Nighty

thx
...