farbige zellen in einer zeile zählen

[StefanB]

Liebe Excel-Freunde,

ich würde gern alle farbigen Zellen in einer Zeile zählen wollen. Die Zellen werden mit folgendem Code und per Mausklick farbig gemacht:

Code:

Sub Farbwechsel()
    Select Case Selection.Interior.ColorIndex
        Case xlNone
            Selection.Interior.ColorIndex = 44
        Case 44
            Selection.Interior.ColorIndex = 43
        Case 43
            Selection.Interior.ColorIndex = 47
        Case 47
            Selection.Interior.ColorIndex = xlNone
        Case Else
            Selection.Interior.ColorIndex = xlNone
    End Select

End Sub

Ich suche nun schon den halben Tag nach der ultimativen Lösung und finde sie nicht. Die Variante mit Namen definieren und "=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";))" etc...bezieht sich immer nur auf die direkt links stehende Zelle. Das hilft mir aber so nicht weiter...ich brauch die Anzahl in jeder einzelnen Zeile
Wer kann mir helfen?  

Gruß Stefan

[Sigi.21]

Hallo Stefan,

teste mal:

Function AnzahlFarbigeZellen(Bereich As Range)
Dim Zelle As Range, n As Long
    Application.Volatile
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex <> xlNone Then
            n = n + 1
        End If
    Next Zelle
    AnzahlFarbigeZellen = n
End Function


Gruß
Sigi

[StefanB]

Hallo Sigi,

wo füge ich den Code ein?   

Grüße Stefan

[Steffl]

Hallo,

in einem allgemeinen Modul. In einer Excel Zelle kannst du dann den Bereich auswerten.

[StefanB]

Hallo,

mit welcher Fomel werte ich den Bereich aus? Hab jetzt mehrere versucht, aber da passiert nix...  

Gruß stefan

[Steffl]

Hallo,

mal angenommen, deine farbigen Zellen stehen in dem Zellbereich A1:A10, dann könntest Du in der Zelle B1 die Formel so schreiben

Code:

=AnzahlFarbigeZellen(A1:A10)

[StefanB]

Hallo, da steht dann bei mir #NAME? ...

[Steffl]

Hallo,

die Funktion von Sigi.21 hast Du schon in ein allgemeines Modul getan?

[RPP63]

Dann hast Du die UDF NICHT in einem allgemeinen Modul gespeichert!
Dass Farbauswertungen nicht gerade sinnvoll sind (u.a. weil sich die UDF nicht automatisch bei Farbänderung aktualisiert) hast Du noch nirgendwo gelesen?

Gruß Ralf

[StefanB]

Hallo,

den Code habe ich hier     eingefügt.
Das mit der Farbauswertung hatte ich gelesen...   hmmm...
Vllt kann man das so umbasteln das immer wenn eine Zelle farbig markiert, auch zeitgleich in dieser ein "x" gesetzt wird. Diese "x" lasst sich ja dann mit na normalen Formel zählen... Richtig?

Grüße