Som ListBox.Column(2)

[alberto10]

Hoe kan ik bijgevoegde code aanpassen zodat ik de som verkrijg van de getallen > 0 en de getallen < 0
Dank bij voorbaat.

 

[sylvester-ponte]

hallo Alberto
probeer dit eens

Private Sub cmdOptellen_Click()
    Dim Totaal As Currency
    Dim TotNeg As Currency
    Dim TotPos As Currency
    Dim Rij As Integer
    For Rij = 0 To (ListBox1.ListCount - 1)
        Totaal = Totaal + ListBox1.Column(2, Rij)
        If ListBox1.Column(2, Rij) < 0 Then
            TotNeg = TotNeg + ListBox1.Column(2, Rij)
        Else
            TotPos = TotPos + ListBox1.Column(2, Rij)
        End If
    Next
    txtTotaal = Format(Totaal, "#,##0.00 €")
    TextBox1 = Format(TotPos, "#,##0.00 €")
    TextBox2 = Format(TotNeg, "#,##0.00 €")
End Sub

groet sylvester

 

[alberto10]

Beste sylvester,
Vriendelijk bedankt. Dit is de code die ik zocht.