Gruppe
Dialog
Bereich
ListBox
Thema
Ausgewählte Werte aus UserForm-ListBoxes addieren
Problem
Wie kann ich in einer Serie von UserForm-ListBoxes ausgewählte Werte addieren?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmListBoxes
Private Sub cmdBerechnen_Click()
Dim dSum As Double
Dim iCounter As Integer
For iCounter = 1 To 4
dSum = dSum + CDbl(Controls("lstWert" & iCounter).List( _
Controls("lstWert" & iCounter).ListIndex))
Next iCounter
MsgBox dSum
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim dValue As Double
Dim iCounter As Integer, intWerte As Integer
For iCounter = 1 To 4
For intWerte = 1 To 10
dValue = dValue + 1.2
Controls("lstWert" & iCounter).AddItem dValue
Next intWerte
dValue = 0
Controls("lstWert" & iCounter).ListIndex = iCounter
Next iCounter
End Sub
StandardModule: basMain
Sub CallForm()
frmListBoxes.Show
End Sub