Office: (Office 365) Alle farbigen Zellen zählen.

Hallo Zusammen,
in meiner Datei befinden sich im Bereich D2:C170 Zellen die verschiedene Farben haben.
Nun möchte ich in den Zellen D171 bis AC171 zählen lassen wie viele gefärbte Zellen in der jeweiligen Spalte sind.
Habe es in den Spalten D (D171) bis E (E171) händisch befüllt.

Würde mich sehr über Hilfe freuen.

 

Erweiterung:

ich habe es mit dem definierten Namen Versucht.Und einer Hilfsspalte.
Dann werden aber nur die Vollen Farben gezählt und nicht die mit Farbverlauf.

 

Hi Merkur,

Code:

Sub ZaehlenFarben()
    Dim intSpalte As Integer
    Dim lngZeile As Long
    Dim strStart As String
    Dim rngZelle As Range
    Application.ScreenUpdating = False
    For intSpalte = 4 To 29
        With Range(Cells(2, intSpalte), Cells(170, intSpalte))
            Set rngZelle = .Find("x", after:=Cells(2, intSpalte))
            If Not rngZelle Is Nothing Then
                strStart = rngZelle.Address
                Do
                    If rngZelle.Interior.Color <> 16777215 Then Cells(172, intSpalte) = Cells(172, intSpalte) + 1
                    Set rngZelle = .FindNext(rngZelle)
                Loop While rngZelle.Address <> strStart
            End If
        End With
    Next intSpalte
    Application.ScreenUpdating = True
End Sub

Beachte: der Code dauert eine ganz Weile bis er durchgelaufen ist,

---

 

Hallo,

folgende Funktion:

Code:

Public Function ZählenColorBG(Bereich As Range) As Long
  Dim Zelle As Range
  Dim ColorCt As Long
  ColorCt = 0
  For Each Zelle In Bereich.Cells
     ColorCt = ColorCt - (Zelle.Interior.Color <> vbWhite)
  Next Zelle
  ZählenColorBG = ColorCt
End Function

Formel in Zelle D171: =ZählenColorBG(D$2:D$170) und kopieren bis Zelle AD171
bzw. Formel in E2: =ZählenColor($D2:$AC2) und kopieren bis Zelle E170 (statt Formel =Farben)

 

Hallo ,

danke für Eure Hilfe.
Habe mich für den Code von Karin entschieden.
Läuft aber doch schnell finde ich.

 

Naja, das ist relativ und hängt von der Anzahl an "x" je Spalte ab.

---