Hallo,
ich habe 2 Mappen
Mappe 1 Analyse ist die Auswertung von Mappe 2 SerienNr.
=Farbezählen([SerienNr.xlsm]Lizenzen!E9:E8000;"lila";[SerienNr.xlsm]Lizenzen!D98000;"Produkt1")
Ich suche also gleichzeitig nach der Farbe "lila" in Spalte E und nach dem Produkt1 in Spalte D.
Insgesamt habe ich in Spalte E 4 Farben.
Da die Farben nicht sortiert sind kann es also sein, dass ich z.B. in folgender Reihenfolge in Spalte E Farben suchen möchte.
lila
lila
lila
grün
lila
Das Ergebnis in Analyse sollte also 4 sein, angezeigt werden aber 5
mit diesem Code zähle ich die Farben:
Function Farbezählen(Bereich1 As Range, Farbe As Variant, Bereich2, SuchText As String)
Dim Zelle As Range, n As Long
Dim myTime1
myTime1 = Timer
SuchText = LCase(SuchText)
Farbe = Switch(LCase(Farbe) = "grün", 14, LCase(Farbe) = "rot", 3, LCase(Farbe) = "orange", 44, LCase(Farbe) = "lila", 47, LCase(Farbe) = "blau", 23) 'ggf Colorcode anpassen
n = Bereich2.Column - Bereich1.Column
For Each Zelle In Bereich1
If Zelle.Interior.ColorIndex = Farbe Then
If LCase(Trim$(Zelle.Offset(0, n))) = SuchText Then Farbezählen = Farbezählen + 1
End If
Next
Für einen Tipp bin ich sehr dankbar
Gruß Klaus