Ich würde ein Makro brauchen mit dem ich alle rot eingefärbten zellen in meinem Tabellenblatt markieren kann?
Kann mir da wer weiterhelfen?
Danke
Sub Farben_Finden
Dim Zelle, Zelle1, rngErg As Range
Application.FindFormat.Interior.ColorIndex = 6
Set Zelle = Cells(1, 1)
Set Zelle = Cells.Find(What:="", After:=Zelle, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
Set rngErg = Zelle
Do
Set Zelle = Cells.Find(What:="", After:=Zelle, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
If Not (Intersect(rngErg, Zelle) Is Nothing) Then Exit Do
Set rngErg = Union(rngErg, Zelle)
Loop
rngErg.Select
End Sub