Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl verwendeter Farben ermitteln

Anzahl verwendeter Farben ermitteln
05.08.2005 22:53:47
Fred
Hi,
wie kann ich in einem Worksheet die Anzahl der unterschiedlichen Füllfarben
ermitteln(keine bedingten Formate). Es soll nicht gezählt werden wie oft rot
oder balu, nur eine Meldung: Es werden 22 Farben verwendet.
mfg Fred
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl verwendeter Farben ermitteln
05.08.2005 23:34:21
K.Rola
Hallo,
wünsche dir einen farbigen Abend:
Option Explicit

Sub AnzahlUnterschiedlicherFarben()
Dim Farben As New Collection, x, c As Range
For Each c In ActiveSheet.UsedRange
On Error Resume Next
x = Farben(CStr(c.Interior.ColorIndex))
If Err.Number = 5 Then
Farben.Add 1, CStr(c.Interior.ColorIndex)
Err.Clear
ElseIf Err.Number <> 0 Then
MsgBox Err.Number
Exit Sub
End If
Next
MsgBox Farben.Count - 1
End Sub

Gruß K.Rola
Anzeige
AW: Anzahl verwendeter Farben ermitteln
05.08.2005 23:46:41
Fred
Hi,
super, erspart jede Menge Arbeit.
mfg Fred
AW: Anzahl verwendeter Farben ermitteln
05.08.2005 23:37:48
Berber
Hallo Fred,
kannst Du den Bereich z.B. A1 bis W2005 eingrenzen,
oder soll der ganze Tabellenbereich geprüft werden?
Gruss
Berber
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige