Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Spalten Zählen | Herbers Excel-Forum


Betrifft: Spalten Zählen von: Herbert
Geschrieben am: 03.02.2010 19:05:35

Hallo!

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
meine Frage: wie muß ich den Code abändern damit er sich auf alle gerade geöffneten Arbeitsmappen bezieht?

danke im voraus

mfG
Herbert

  

Betrifft: AW: Spalten Zählen von: Ramses
Geschrieben am: 03.02.2010 19:40:44

Hallo

Probier mal

Sub Spalten_zählen()
Dim i As Integer
Dim ws As Worksheet, wkb As Workbook
Dim Zähler
Zähler = 0
For Each wkb In Application.Workbooks
    For Each ws In wkb.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
Next wkb
MsgBox Zähler
End Sub
Der Sinn ist mir allerdings nicht klar, vor allem dauert das immens lange

Gruss Rainer


  

Betrifft: AW: Spalten Zählen von: Herbert
Geschrieben am: 03.02.2010 19:52:04

Danke!

So hab ich es gemeint.

Frage, was dauert deiner Meinung nach so lange?

mfG
Herbert


Beiträge aus den Excel-Beispielen zum Thema "Spalten Zählen"