ich nutze eine listbox zum anzeigen verschiedener Rechnungen. (13 spalten, welche per VBA eingelesen werden, kein ROWSource). In der SPalte 8 stehen die Beträge.
Ich habe folgenden Code erstellt, in der Hoffnung dass der Betrag in einer Textbox korrekt angezeigt werden. Bei Einfach-Selection geht's - nur wenn ich auf Mehrfachselection 1 oder 2 gehe - passiert nichts.
Private Sub LBDaten_Click()
Dim i As Integer
Dim Betrag As Integer
Betrag = 0
With LBDaten
For i = 0 To LBDaten.ListCount - 1
If LBDaten.Selected(i) Then
.TextColumn = 8
Betrag = Betrag + .Text
End If
Next i
End With
TBGesamt = VBA.Format(Betrag, "#.##0")
End Sub
Woran liegt es und vor allem, wie kann ich die Summe bei Mehrfachmarkierungen (im Idealfall mit "option-Anzeige") realisieren?Gruß und DAnke
Kay