Summe in ABhängigkeit von Formatierung
19.12.2003 17:21:54
Peter
will die Werte einer Spalte in ABhängogkeit von der Schriftfarbe aufsummieren. Nach einigem Stöbern hier im Forum, habe ich eine Lösung gefunden, die ich noch leicht modifiziert habe. Hier der Code:
Public
Function Farbcode(farbe As Range)
Dim chr
Dim inh
Dim zwert As Integer
inh = 0
zwert = 0
For Each chr In farbe
inh = chr.Value
Debug.Print inh
If chr.Font.ColorIndex = 3 Then
zwert = zwert + inh
End If
Next chr
Farbcode = zwert
End Function
Nun meine Problem (vielleicht ganz einfach zu lösen, aber ich kann´s nicht).
Ändere ich die Schriftfarbe von schwarz auf rot, wird die Funktion farbcode nicht aufgerufen, d.h es wird nichts neu berechnet. Ändere ich die Schriftfarbe aber mit "Format übertragen" funktionierts perfekt. F9 (neu berechnen) bringt auch nichts.
Vielen Dank für die Hilfe!
Gruß p
Anzeige