Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ausgewählte Werte aus UserForm-ListBoxes addieren

Gruppe

ListBox

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