Hallo zusammen,
in meiner Userform habe ich 2 Listboxen: Bei der Initialisierung der Userform wird Listbox1 mit Werten aus Tabellenblatt „Tabelle1“, Spalte A gefüllt. Über verschiedene Buttons können einzelne oder alle Einträge in Listbox2 bzw. zurück in Listbox1 verschoben werden.
Nun möchte ich per Button für alle Einträge, die in Listbox1 stehen, die Werte in Tabelle1, Spalte B summieren und in einem Label ausgegeben.
Mit folgendem Code werden aktuell die Einträge in Listbox1 in einer MsgBox ausgegeben:
Sub AusgabeSumme()
Dim i As Long
For i = 0 To (ListBox1.ListCount - 1)
MsgBox ListBox1.List(i)
Next
End Sub
Kann mir jemand einen Tipp geben, wie ich für die EInträge ind Listbox1 die Werte in Spalte B summiere?
Viele Grüße
Jen
|