Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbige Spalten Zählen

Forumthread: Farbige Spalten Zählen

Farbige Spalten Zählen
16.03.2006 13:12:33
Herbert
Hallo!
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbige Spalten Zählen
16.03.2006 13:21:03
u_
Hallo,
die bis hinunter eine bestimmten Füllfarbe haben
Von 1 bis 65536? Würde ich nicht machen. Die Dateigröße wächst enorm.
Gruß
Geist ist geil!
AW: Farbige Spalten Zählen
16.03.2006 13:28:30
Hoffi
Hallo Herbert,
folgendes Makro zählt alle Spalten innerhalb einer Arbeitsmappe, deren Füllfarbe 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

Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: Farbige Spalten Zählen
16.03.2006 13:43:48
Herbert
Hallo
Dieses Makro ist die Optimale Lösung für mich.
Übrigens bleiben die Spalten nicht dauerhaft bis hinunter Formatiert , bezüglich Dateigröße.
mfG
Herbert
AW: Farbige Spalten Zählen
16.03.2006 13:38:08
Reinhard
Hi Herbert,
wie kommt die Farbe rein? Manuell oder bed. Formatierung?
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige