Tabellenblatt aktualisierung
20.01.2006 11:15:40
kalle
habe da folgendes Problem. Ich lasse in meinem Tabellenblatt Farblich markierte Zellen auslesen und die Summe als Zahl in einer anderen Zelle anzeigen. Dazu habe ich in einem Modul folgendes eingetragen:
Option Explicit
Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = Farbe Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Next c
End Function
In der Ausgabezelle habe ich folgendes eingetragen:
=Summe((FARBEZÄHLEN(A5:A12;44)+Summe(FARBEZÄHLEN(B5:B12;44))
wobei die Zellen mit der Farbe orange gezählt werden. Gezählt werden die Farben ohne Probleme aber wenn ich die Farbe ändere wird kein automatiches Update in der Rechnung ( habe z.B. 3 Rote werden auch als 3 gezählt, wenn ich jetzt aber noch eine Zelle Rot mache muss ich erst auf die Formel und nochmal bestätigen das weitergezählt wird). Was mache ich falsch, oder eventl. zu kompliziert? Für Hilfe bin ich dankbar.
gruß
Kalle