Hallo,
ich möchte eine Anzahl der Feldern ermitteln, die mit der gleichen Farbe formatiert worden sind.
Ist das Überhaupt möglich? Gibt es eine Formel?
Beispiel:
Zellen A1 bis C1 sind in Blau und
Zellen D1 bis K1 sind in Grün:
Das Ergebnis muss lauten:
3 (Blau)
8 (Grün)
Ich hoffe mir kann jemand Helfen.
Gruss Detlef
Hallo,
mache folgendes:
a) Lege in XLS für den Bereich der abgetestet werden soll den Namen „Arbeitsbereich“ fest (über Zellen markiere -> Einfügen -> Namen)
b) Lege für den Bereich in dem die Ergebnis-Ausgabe erscheinen soll den Namen „Ausgabe“ fest (wie bei a))
c)
Binde folgendes Makro ein:
Sub WievielFarben()
Dim Tabelle As Range
Set Tabelle = Range(„Arbeitsbereich“)
Dim Zelle
Dim Ausgabe As Range
Set Ausgabe = Range(„Ausgabe“)
Dim i, j As Integer
Dim FarbZähler(0 To 1000) As Integer
For Each Zelle In Tabelle
If Zelle.Interior.ColorIndex -4142 Then
FarbZähler(Zelle.Interior.ColorIndex) = FarbZähler(Zelle.Interior.ColorIndex) + 1
End If
Next Zelle
Ausgabe.Interior.ColorIndex = -4142
Ausgabe.Value = „“
j = 1
For i = 0 To 1000
If FarbZähler(i) 0 Then
Ausgabe.Cells(j).Value = FarbZähler(i)
Ausgabe.Cells(j).Interior.ColorIndex = i
j = j + 1
End If
Next i
End Sub
Danach kannst Du das Makro aufrufen, und es wird im Ausgabe-Bereich soviele Felder farbig markieren, wie Farben in deinem Arbeitsbereich vorkommen und jeweils die gezählte Häufigleit eintragen.
Wenn du noch Fragen hast
[email protected]
Vielleicht gibt’s ja noch eine elegantere Lösung, aber diese hier funktioniert. Da aber nach einer Woche sonst niemand auf deinen Artikel geantwortet hat, scheint die Sache wohl nicht ganz trivial zu sein.
Viel Spass
Gruss
Volker
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]