nach dem makrocode soll eine userform aufgehen und die anzahl aller roten zellen wiedergeben.
oder gibts das auch ohne vba? quasi zäjlenwenn zelle rot
habs noch nie gebraucht bzw gesehen
danke fürs lesen
gruss
Dim lloRow As Long, liCounter As Integer
For lloRow = 1 To 10
If Range("F" & lloRow).Value
Sub ZellenMitFarbeZählenAuchBedFormat()
Dim Anzahl As Long
Dim rngCol As Range
Application.ScreenUpdating = False
For Each rngCol In ActiveSheet.UsedRange.Columns
rngCol.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
Anzahl = Anzahl + rngCol.SpecialCells(xlCellTypeVisible).Cells.Count - 1
rngCol.AutoFilter
Next
Application.ScreenUpdating = True
MsgBox Anzahl
End Sub
Gruß Daniel