Listbox-Einträge addieren
31.08.2002 07:58:29
Jens
Im nachfolgenden Code werden alle Werte der Spalte 4 aus der Listbox addiert, was auch soeinwandfrei funktioniert. Wie bekomme ich es hin das das Ergebnis nicht gerundet ausgegeben wird? Ich erhalte immer eine Ganzzahl. Auch mit der Formatierung klappt es nicht das Kommastellen gerechnet werden.
Sub x()
Dim i As Integer
Dim intSum As Integer
With ListBox1
For i = 0 To .ListCount - 1
intSum = intSum + .List(i, 3)
Next
End With
TextBox17 = intSum
TextBox17.Value = Format(TextBox17.Value, "#,##0.00 ")
End Sub
Wer kann mir helfen
Danke Jens