Ich möchte in Spalte A alle roten (interior) Zellen zählen, wobei einige Wörter in den roten Zellen mehrmals vorkommen, aber nur einmal gehzät werden dürfen. Hat jemand eine Lösung mit VBA?
Vielen Dank und Gruss
Gregor
W | |
1 | |
2 | |
3 | 1 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
W3 | =WENN(UND($Z$1=1;ODER($Z$2="0.";$Z$2=-1));1;WENN(UND($Z$1=-1;ODER($Z$2="0.";$Z$2="1."));-1;0)) |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 17.23 einschl. 64 Bit |
Sub FarbenZählen()
Dim dic As Object
Dim arr
Dim Zelle As Range
Set dic = CreateObject("Scripting.dictionary")
With ActiveSheet.UsedRange.Columns(1)
.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
For Each Zelle In .SpecialCells(xlCellTypeVisible).Cells
dic(Zelle.Value) = 1
Next
.AutoFilter
End With
MsgBox "Anzahl Rot, doppelte Texte nur einfach gezählt: " & dic.Count
End Sub
Gruß Daniel