Farbige Zellen zusammen rechnen

Bild

Betrifft: Farbige Zellen zusammen rechnen
von: Jens
Geschrieben am: 10.10.2003 17:30:05

Hallo allerseits

Ich habe das Problem das ich Farbigezellen zusammen rechnen möchte und eine Formel dann neu berechnen.
Und habe auch schon folgendes probiert.

„ Class Modul: Tabelle1


Private Sub Worksheet_SelectionChange_
                        (ByVal Target As Range)
                        Range("D1").Calculate
   End Sub
"
„ Standard Modul: Modul 1

Function Farbe(rngBereich As Object, iColor As Integer)
Dim iCounter As Integer
Dim rngAct As Range
Application.Volatile
For Each rngAct In rngBereich
If rngAct.Interior.ColorIndex = iColor Then
iCounter = iCounter + 1
End If
Next rngAct
Farbe = iCounter
End Function


Das funktioniert aber nur wenn ich den Wert in eine der Zellen mit der Hintergrundfarbe ändere. So wie ich nur die Farbe ändere zählt Excel nicht mehr.

Bin für jede Hilfe dankbar.

Mit freundlichen Grüßen Jens
Bild


Betrifft: AW: Farbige Zellen zusammen rechnen
von: Koenig W.
Geschrieben am: 10.10.2003 17:34:56

Hallo Jens,
ich glaube, die Farbänderung löst kein Change-Ereignis aus.
Gruss Wilhelm


Bild


Betrifft: AW: Farbige Zellen zusammen rechnen
von: Jens
Geschrieben am: 11.10.2003 16:15:26

Hallo Wilhelm

Kennst Du eine möglichkeit wie ich es anderst realisieren könnte.

MFG Jens


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Farbige Zellen zusammen rechnen"