Office: Excel 2003 Tabellenfarben zählen lassen

Hallo,

in einer Excel Datei habe ich ca. 100 Tabellen, welche ich unterschiedlich markiern muss. z.B. rot, blau und schwarz. Hinterher muss ich sie immer durchzählen wieviele rot, blau usw sind. Gibt es da nicht eine Möglichkeit etwas zu programmieren wo in einer Zelle ausgegeben wird wie viele Tabellen rot, blau usw. sind???

Wäre total lieb für HILFE.
im Anhang ist ein Beispiel wie ich es meine.

 

Hallo!

Dieser Code läuft unter Excel 2007 und ich hoffe, dass er das auch unter Excel 2003 tut...

Code:

Sub ReiterFarbe()
Dim i As Integer, Anzahl As Integer
Dim Blatt As Worksheet
Dim Zelle As Range
For i = 5 To 8 'durchläuft Zeile 5 bis 8 (evtl. anpassen)
Anzahl = 0
Set Zelle = Tabelle1.Cells(i, 1)
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Tab.ColorIndex = Zelle.Interior.ColorIndex Then Anzahl = Anzahl + 1
Next Blatt
Tabelle1.Cells(i, 2).Value = Anzahl
' Anzahl wird in Spalte 2 (also B) ausgegeben
Next i
End Sub

 

kannst du mir bitte noch erklären wie ich den Quellcode
einfügen kann oder eher gesagt unter was genau. Wäre schön wenn man wie so ein Button haben könnte, wenn man den dann drückt das dann die Zahlen der Farben in irgendwelchen Zellen angezeigt wird.

Vielen Lieben Dank schonmal.

 

Hallo!

Am Einfachsten so:
Rechtsklick auf den ensprechenden Tabellenreiter (hier "Müller (1)") -> Code anzeigen
und den Code ins rechte Fenster kopieren
Aufrufen kannst du das Makro nun über Alt+[F8]
Alternativ malst du dir aus der Formular-Symbolleiste einen Button. Dann Rechtsklick auf den Button > Steuerelement formatieren und ihm das Makro zuweisen.

 

hey vielen herzlichen Dank,

hat geklappt. Das spart Zeit. Danke, danke!!!!!!
Toll das einem so schnell hier geholfen wird.
Klasse Sache!