Farbige Zellen zusammen rechnen
10.10.2003 17:30:05
Jens
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