VBA Farbzählen & Inhalt
26.07.2016 15:01:27
Matthias
vielleicht kann mir jemand von euch weiterhelfen, habe hier online den Code
Farbzählen gefunden und benötige Hilfe bei der Erweiterung.
https://www.herber.de/forum/archiv/1268to1272/1269519_Farbige_Zellen_zaehlen_VBA.html#bottom
MODUL:
Public Function Farbenzaehlen(ZellBereich As Range, lngColorIndex As Long) As Long
'Funktion zählt Zellen im Zellbereich mit dem angegebenen Colorindex
Dim Zelle As Range
For Each Zelle In ZellBereich
If Zelle.Interior.ColorIndex = lngColorIndex Then
Farbenzaehlen = Farbenzaehlen + 1
End If
Next Zelle
End Function
Code Worksheet
'Code im Tabellen-Modul
Option Explicit
Private lastCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B500")) Is Nothing Then
If Not lastCell Is Nothing Then
Cells(1, 1).Calculate
Set lastCell = Nothing
End If
Else
Cells(1, 1).Calculate
Set lastCell = Target.Range("A1")
End If
End Sub
Möchte gerne nicht nur die farbigen Zellen Zählen wie im Code beschrieben sondern
die Zelle soll gezählt werden bei Farbe (zb.Rot) inkl. Inhalt (1)
Kurz mit 2 Bedingungen, ohne Inhalt nur mit Farbe sollte nicht gezählt werden.
vielen Dank für eure Unterstützung