Gruppe
Dialog
Problem
Wie kann ich aus einer UserForm-Listbox die ausgewählten Elemente einer Mehrfachauswahl bestimmen, die Selektierung aufheben und die Elemente löschen?
ClassModule: frmAuslesen
Private Sub cmdAuslesen_Click()
Dim iCounter As Integer
Dim sMsg As String
For iCounter = lstValues.ListCount - 1 To 0 Step -1
If lstValues.Selected(iCounter) Then
sMsg = sMsg & lstValues.List(iCounter) & vbLf
lstValues.RemoveItem iCounter
End If
Next iCounter
MsgBox sMsg
End Sub
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 12
lstValues.AddItem Format(DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
End Sub
StandardModule: basMain
Sub CallForm()
frmAuslesen.Show
End Sub