Sub GelbeZellen()
Dim Zelle As Range
Dim Zählen As Long
For Each Zelle In Sheets(1).UsedRange.Cells
If Zelle.Interior.ColorIndex = 6 Then Zählen = Zählen + 1
Next
MsgBox Zählen
End Sub
Sub Makro2()
Dim i As Long
Dim Zelle As Range
Dim StartZelle As String
Application.ScreenUpdating = False
Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
StartZelle = ActiveCell.Address
Do
i = i + 1
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
Loop Until ActiveCell.Address = StartZelle
Application.ScreenUpdating = True
MsgBox (i & " gelbe Zellen")
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen