Herbers Excel-Forum - das Archiv
Farbige Zellen zusammen rechnen
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
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
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