Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählen von Farben

Zählen von Farben
11.12.2006 13:50:05
Farben
Hallo,
ich habe eine Frage: Ich habe in einer Excel-Mappe verschiedene Felder verschieden farblich markiert. Gibt es die Möglichkeit die Anzahl der z.B. rot markierten Felder zu ermitteln?
Gruß
Robert

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen von Farben
11.12.2006 13:54:34
Farben
Hi Robert,
oben im unteren Suchen-Feld
farben zählen
eingeben.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Zählen von Farben
11.12.2006 13:54:45
Farben
Hallo Robert,
z.B:

Sub FarbenZählen()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
intRot = 0
intGelb = 0
intGrün = 0
For Each zelle In Range("A:A").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "4" Then intGrün = intGrün + 1
Next zelle
Range("B1").Value = intGrün & " grün"
Range("B2").Value = intGelb & " gelb"
Range("B3").Value = intRot & " rot"
End Sub

Zählt die Farben in Spalte A und schreibt die Anzahl in B1 - B3.
Gruß
Bertram
Anzeige
AW: Zählen von Farben
11.12.2006 14:14:22
Farben
Hallo Bertram,
vielen Dank für deine Antwort. Es funktioniert teilweise. Meine Problem ist: ich habe 6 verschiedene Farben!! Gibt es dann für jede Farbe eine Zahl? Weil grün hat es mir jetzt nicht gezählt, wobei ich warhscheinlich denke, dass das vielleicht ein anderes grün ist, wie es bei deinem Makro hinterlegt ist! Kannst du mir da nochmal deinen Rat geben?
Gruß
Robert
AW: Zählen von Farben
11.12.2006 14:18:39
Farben
Hi Robert,
lass mal dieses makro laufen
Sub tt()
Dim zei
For zei = 1 To 56
Worksheets("Tabelle3").Range("A" & zei).Interior.ColorIndex = zei
Worksheets("Tabelle3").Range("B" & zei).Value = zei
Next zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Zählen von Farben
11.12.2006 14:26:55
Farben
Hallo Reinhard,
hat irgendwie nicht geklappt. Der Ansatz von Bertram hat funktioniert. Was mir fehlt ist der Farben Index. z.B. Was ist der Farbenindex von lila? Oder von rosa? oder von dunkelgrün? oder von grau`?
Gruß
Robert
AW: Zählen von Farben
11.12.2006 14:29:20
Farben
Hi Robert,
was soll da nicht geklappt haben? Hast du schon mal auf Blatt 3 geschaut?
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Zählen von Farben
11.12.2006 14:36:32
Farben
Hallo Reinhardt,
ich habe den Fehler gefunden. Du hattest natürlich alles richtig gemacht. Aber bei meiner Excel Datei heißt es nicht Tabelle3 sondern Sheet3. Jetzt habe ich es geändert und es funktioniert!!!! Danke!!
Gruß
Robert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige