Zellen mit bestimmter Zellfarbe zählen
10.02.2018 09:28:26
F
ich habe ein Dokument, in dem in Spalte A alle Zellen mit hellblauer Füllfarbe, per macro, gezählt werden.
Gleichzeitig haben die Zellen eine bedingte Formatierung, wenn der Zellenwert =1 ist, werden diese Zellen auch hellblau gefüllt.
Das macro kann aber nur die hellblauen Zellen zählen, denen ich selber die Füllfarbe gebe, die Zellen, die über die bedingte Formatierung hellblau gefüllt werden, werden nicht gezählt.
Hier mal das macro und im Anhang eine Beispieldatei.
https://www.herber.de/bbs/user/119694.xlsm
Gruß
Frank
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ende As Integer
Dim hellb As Integer
Dim zaehlen As Integer
hellb = 0
ende = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'letzter Eintrag wird gesucht
For zaehlen = 5 To ende
If Cells(zaehlen, 1).Interior.Color = 15773696 Then 'wenn die Füllfarbe hellblau ist, _
wird hochgezählt
hellb = hellb + 1
Else
End If
Next
Cells(1, 1) = hellb 'Anzahl der hellblauen Zellen wir eingetragen
End Sub
Anzeige