Werte Listbox addieren
20.02.2008 14:35:00
Mario
Ich sitze hier vor einem Problem und suche Hinweise zur Unterstützung.
Ich habe zwei Listboxen Listbox1 und Listbox2
Listbox 1 enthält die Spalten Beschreibung und Aufwand
aus der Listbox 1 werden die jeweiligen Beschreibungen ausgewählt und mittels Button in die Listbox 2 übertragen. Soweit so gut.
jetzt möchte ich gerne in einer Textbox immer den aktuellen Aufwand stehen haben.
Das mache ich mit einer einfachen Variablenzuordnung und einem AddItem (hier nur die Ausschnitte, da alles funktioniert)
dim spalte2
ListBox_Projekt.List(ListBox_Projekt.ListCount - 1, 1) = Spalte2
Aufwand= Aufwand+ Spalte2
me.txtbox_aufwand.value=Aufwand
wenn ich nun einen Aufwand aus der Listbox2 wieder lösche soll sich der Wert aktualisieren. Mit dem Code
Aufwand = Aufwand- ListBox_Projekt.List(ListBox_Projekt.ListIndex, 1)
funktioniert es nicht.
Frage:
Gibt es eine Möglichkeit mit welcher die Werte aus der Spalte 2 der Listbox aufsummiert werden.
Ich habe versucht es mit dem Ansatz
Sub summen()
Dim a As Integer
For a = 0 To ListBox_Projekt.ListCount - 1
Aufwand= Aufwand + Listbox_Projekt.List(Listbox_Projekt.ListIndex, 1)
Next a
End Sub
bekomme hier aber immer einen Fehler.
Kann mit jemand helfen?
Danke