Fehler bei Range, Cells Value?
ing.grohn
scheinbar habe ich lange Zeit mit einem dicken Bock gelebt: Ich habe numerische Zellwerte mit Val(Range("A1").Value in Variable übertragen.
Gibt keine Fehlermeldung, rechnet auch, aber nur mit Ganzzahlen!
Weil ich die Variablen nur als "Stütze/Hilfe" gebraucht und mit Excelformeln gerechnet habe, ist mir das nie aufgefallen.
Warum ist das so?
Hier ein Beispielcode:
Sub Test()
Dim Summe As Double
With Sheets("Tabelle1")
Summe = 0
Summe = Summe + Cells(5, 3)
Summe = Summe + Cells(6, 3)
Summe = Summe + Cells(7, 3)
Cells(8, 3) = Summe
Summe = 0
Summe = Summe + Val(Cells(5, 3))
Summe = Summe + Val(Cells(6, 3))
Summe = Summe + Val(Cells(7, 3))
Cells(9, 3) = Summe
Summe = 0
Summe = Summe + .Range("C5").Value
Summe = Summe + .Range("C6").Value
Summe = Summe + .Range("C7").Value
Range("C10").Value = Summe
Summe = 0
Summe = Summe + Val(.Range("C5").Value)
Summe = Summe + Val(.Range("C6").Value)
Summe = Summe + Val(.Range("C7").Value)
.Range("C11").Value = Summe
End With
End Sub
Seit bedankt für eine Antwort.
Mit freundlichen Grüßen
Albrecht