AW: rot gefärbte Zellen zählen
10.11.2018 21:40:43
Rainer
Hallo Jenny,
du darfst es gerne an deine Bedürfnisse anpassen!
Probier mal diesen Code für das Blatt "Formeln":
Private Sub Worksheet_Activate()
Statistik_aktualisieren
End Sub
Sub Statistik_aktualisieren()
Dim TabA As Worksheet
Dim TabS As Worksheet
Set TabA = Worksheets("Auswertung")
Set TabS = Worksheets("Formeln")
ZeileA = TabA.Cells(TabA.Rows.Count, 1).End(xlUp).Row
'ZeileS = TabS.Cells(TabS.Rows.Count, 1).End(xlUp).Row
'Farbe = TabS.Cells(15, 1).Interior.ColorIndex
Farbe = TabS.Cells(15, 1).Font.Color
Ergebnis = 0
For i = 2 To ZeileA
' If TabA.Cells(i, 1).Interior.ColorIndex = Farbe Then Ergebnis = Ergebnis + 1
If TabA.Cells(i, 1).Font.Color = Farbe Then Ergebnis = Ergebnis + 1
Next i
TabS.Cells(15, 1) = Ergebnis / (ZeileA - 1)
MsgBox "Werte aktualisiert!"
End Sub
Die Schriftfarbe von A15 wird jetzt gezählt. Sonst nichts.
Anmerkung: Die Zählungen starten ab Zeile 2, weil ich davon ausgehe das Zeile 1 Überschriften enthält.
Gruß,
Rainer