Brauche nochmal Hilfe
27.02.2006 22:52:09
kalle
habe Gestern hier im Forum Hilfe von Reinhard bekommen der mir mein Modul
Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Application.Volatile
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
wie folgt geändert hat
Function WerteZählen(Bereich As Range, Farbe As Byte) As Long
Application.Volatile
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = Farbe Then
WerteZählen = WerteZählen + c.Offset(1, 0).Value
End If
Next c
End Function
in der Auswertezelle zB A1 steht =WerteZählen(A2:H17;4)
Funktioniert bei ganzen Zahlen einwandfrei. Habe heute leider festgestellt das im ausgewählten Bereich die Kommastellen in den Zellen (zB A2=8,5 und B5=8)nicht mitgezählt werden. In A1 wird als Ergebnis 16 angezeigt. Formatierungen in allen erdänklichen Konstellationen haben zu keinem Ergebnis geführt. Wo mache ich den Fehler? Bitte um Hilfe. Danke
Gruß
Kalle
Anzeige