Zahlen berechnen die nur eine entsprechende Farbe aufweisen

Question

Hallo
Ich habe von M.O. folgende Lösung für die Berechnung von farbigen Zahlen bekommen.
Leider werden die Kommastellen nicht richtig berechnet.
z.B. 12.10 wird der Wert 12 ausgegeben und bei 12.70 wird aufgerundet auf 13.
Was ist da falsch?
Sonst funktioniert es einwandfrei!

das folgende Makro berechnet die Farbenwerte in den Zeilen 2 bis 27 in der Spalte, in der sich der Cursor befindet:


Sub Farben_neu()

Dim i As Integer
Dim sumblau As Long
Dim sumrot As Long
Dim sumschwarz As Long
Dim zeile, spalte As Long

sumblau = 0
sumrot = 0
sumschwarz = 0

spalte = ActiveCell.Column

For zeile = 2 To 27

'schwarze Einträge summieren
If Cells(zeile, spalte).Font.ColorIndex = xlAutomatic Then sumschwarz = sumschwarz + Cells(zeile, spalte).Value

'rote Einträge summieren
If Cells(zeile, spalte).Font.ColorIndex = 3 Then sumrot = sumrot + Cells(zeile, spalte).Value

'blaue Einträge summieren
If Cells(zeile, spalte).Font.ColorIndex = 5 Then sumblau = sumblau + Cells(zeile, spalte).Value

Next zeile

Cells(28, spalte) = sumschwarz
Cells(29, spalte) = sumrot
Cells(30, spalte) = sumblau

End Sub

Danke für Eure Hilfe

Answer 1

Hallo,

das liegt an der falschen Variablendeklaration

ändere

Dim sumblau As Long
Dim sumrot As Long
Dim sumschwarz As Long

in

Dim sumblau As Double
Dim sumrot As Double
Dim sumschwarz As Double

Gruß
Rainer