ich habe hier im Forum diesen Code gefunden
Sub farben()
Dim bereich As Range
Dim zelle
Dim x
Columns("AK").Clear
For x = 2 To 32
If Cells(x, 1).Interior.ColorIndex > 1 Then
Cells(x, 37) = Cells(x, 1).Interior.ColorIndex
End If
Next
End Sub
der mir den Farbindex liefert nur ich habe einen Kalender der für jeden Monat 3 Spalten hat.
Also ich will wissen wie oft der Farbindex 3 und 55 in Spalte A,D,G,J usw. vorkommt.
Wie muss dann der Code umgebaut werden?
Gruß Thomas