Farben zählen in Excel IV

Es gibt schon etliche Makros, die sich mit dem Thema Farben zählen beschäftigen. Aus diesen Makros lässt sich auch eines basteln, welches Ihre Bedürfnisse abdeckt.

Wenn ich das richtig verstehe, möchten Sie mit den schwarzen Zeilen den Anfang und das Ende eines Bereichs definieren. Alle Zeilen dazwischen, egal ob mit oder ohne Hintergrundfarbe, sollen gezählt werden.

Mit dem folgenden Makro zählen Sie einfach alle "nicht schwarzen Zeilen" zwischen Anfangs- und Endzeile, die Sie anfangs unter "Bereich markieren" eintragen. Je nachdem was Sie dann mit diesem Ergebnis bezwecken, können Sie die Ausgabe des Ergebnisses anpassen. In unserem Beispiel wird die Ergebniszahl in die Zelle A1 eingetragen. Dies ist dann sinnvoll, wenn Sie beispielsweise damit weiterrechnen möchten. Sie können selbstverständlich auch eine andere Zelle definieren.

Sie können das Ergebnis aber auch in einer Messagebox aussgeben, wenn Ihnen das besser dient. Dann ersetzen Sie einfach den Teil am Ende des Makros (ab "Rückgabe Ergebnis" durch den entsprechenden Code, den Sie hier ebenfalls ganz am Ende finden.

-----------------------------------------

MAKRO ZUM KOPIEREN:

-----------------------------------------

Sub ZwischenzeilenZaehlen()

Dim Zelle As Object

Dim z%

'Bereich markieren

[a3:A15].Select

For Each Zelle In Selection

If Not Zelle.Interior.ColorIndex = 1 _

Then z = z + 1

Next

'Rückgabe Ergebnis

[a1].Select

ActiveCell.Formula = z

End Sub

-----------------------------------------

-----------------------------------------

AUSGABE IN MESSAGE-BOX:

-----------------------------------------

'Rückgabe Ergebnis

MsgBox "Anz. Zwischenzeilen: " & z

End Sub

-----------------------------------------