Gruppe
Ereignis
Problem
Nach Änderung der Hintergrundfarbe und Zellwechsel im Bereich A1:C8 soll die Formel in Zelle D1 neu berechnet werden.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
Range("D1").Calculate
End Sub
StandardModule: Modul1
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