Spalten Zählen
Herbert
folgendes Makro zählt alle Spalten innerhalb meiner Arbeitsmappe, deren Füllfarbe bis hinunter grün ist (Grün=4)
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
danke im voraus
mfG
Herbert
Anzeige