HERBERS Excel-Forum - die Beispiele

Thema: Mehrfachauswahl aus ListBox auslesen

Home

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?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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

Beiträge aus dem Excel-Forum zu den Themen VBE und ListBox

Listbox filtern Listbox fuellen mit Wert entsprechend Markierung
Listbox Spezial VBA - Listbox in Abhängigkeit füllen
Listbox und .rowsource (ActiveSheet) Doppelte in Listbox zur Auswahl stellen
Listbox viele spalten Absatzzeichen in Textbox und Listbox verhindern
Listbox nach öffnen der Userform füllen Listbox horizontal
ListBox mit CheckBox bei Auswahl Page anzeigen Vorauswahl in einer Listbox
ListBox editieren und in die Tabelle übertragen Daten aus Listbox in Textbox einlesen und zurück i
Eingetragene Zeilen in UF Listbox zählen ListBox-Shape: Zugriff auf ListBox-Eigenschaften
Listbox in UF Werte in ListBox kopieren
suche Taschenrechner in VBE Mehrspaltige ListBox füllen
ListBox Listbox füllen
Listboxeintrag unter Mauszeiger in Listbox scrollen / text in TB teilweise fett
Suche nach Einträgen in 2. Spalte der Listbox Inhalt der ListBox in Tabelle kopieren
Suchfunktion für Listbox in Userform integrieren ListBox1_DblClick Hyperlink öffnen
ListBox sortieren ListBox spaltenüberschriften
listbox Ausgewählte Zelle aus Listbox befüllen
ListBox auslesen werte aus listbox löschen
daten aus tabelle in listbox listbox
Suche & Listbox listbox
ListBox - Werte nur einmal einlesen Suche in ListBox-Ausgabe ComboBox
Listbox Begriff in ListBox suchen
Listbox bedingte Listbox
Fehler in Listbox Listbox 3 Spalten (erste Spalte zentriert) anzeige
Listbox mit verschiedenen Währungen ListBox sortieren, trotzdem Daten richtig auslesen
Verzeichnis in Listbox formatieren ColumnHeads in ListBox (UF) anzeigen