Hallo zusammen,
kann man in Excel 97 Zellen, die farblich gekennzeichnet sind, abzählen lassen?
Also z.B. 3 rote und 5 blaue und 7 grüne …
Besten Dank im voraus für alle Hinweise
Tschüss und Gruß von Georg Burk
Hi Georg,
das läßt sich in VBA machen, wenn Du die Farbeigenschaft der Zellen abfragst.
Ist aber ein relativ großer Aufwand.
Ciao
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
zum Beispiel so:
'Zählt die Farben Schwarz, Weiß und Rot im Bereich A1 bis D10
'und gibt die Anzahl in einer MsgBox aus
Sub Farbenzählen()
'Variablen deklarieren
Dim Zelle As Object
Dim schwarz%, weiß%, rot%
'Bereich markieren
[a1:d10].Select
'Variablen auf 0 setzen
schwarz = 0: weiß = 0: rot = 0
'Zählen
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 1 Then schwarz = schwarz + 1
If Zelle.Interior.ColorIndex = 2 Then weiß = weiß + 1
If Zelle.Interior.ColorIndex = 3 Then rot = rot + 1
Next
'Rückgabe der Variablen
MsgBox "Schwarz: " & schwarz & Chr(10) & _
"Weiß: " & weiß & Chr(10) & _
"Rot: " & rot
[a1].Select
End Sub
Viele Grüße
Jörg