ich habe eine Liste von gelb-makierten Zellen. (ohne Zahlen) Ist es möglich all diese gelb-makierten Zellen automatisch zu zählen?
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