Ich suche nach einer VBA Lösung , die mir alle Spalten der GESAMTEN Arbeitsmappe zählt , die bis hinunter eine bestimmten Füllfarbe haben.
Habe aber leider keine Ahnung wie das gehen soll.
Vielen Dank für die Hilfe
mfG
Herbert
Sub Spalten_zählen()
Dim i As Integer
Dim ws As Worksheet
Dim Zähler
Zähler = 0
For Each ws In ActiveWorkbook.Sheets
For i = 1 To ws.Columns.Count
If ws.Columns(i).Interior.ColorIndex = 4 Then
Zähler = Zähler + 1
End If
Next i
Next ws
MsgBox Zähler
End Sub