Mehrfachauswahl einer Listbox in Userfor
13.12.2022 17:19:15
Sambus
ich habe folgendes Problem.
Mit dem unteren Code sollen die markierten Werte der ListBox128 in einer Userform (Multiselect Listbox mit 9 Reihen) in Tabelle3 übertragen werden.
Es werden aber nur die Werte der Reihe A übertragen. Reihen B - J fehlen.
Die Zeilen sind komplett.
Was mache ich mit der Formel falsch? Ich wäre dankbar für Hilfe!
Liebe Grüße Sambus
Private Sub CommandButton62_Click()
'Sub Multi_Listbox_auslesen()
'** Auslesen aller in einer Listbox selektierten Einträge (Multiselect)
'** Dimensionierung der Variablen
Dim i As Long
Dim lngCnt As Long
'** Startzeile festelegen
lngCnt = 1
'** Ausgabebereich löschen
Sheets("Tabelle3").Select
ActiveSheet.Range("A1:J100").ClearContents
With ListBox128
'** Beenden, wenn nichts ausgewählt wurde
If .ListIndex = -1 Then Exit Sub
'** Listbox durchlaufen
For i = 0 To .ListCount - 1
'** Gewählte Einträge auslesen
If .Selected(i) Then
txt = .List(i)
'** Eintragen der gewählten Einträge auf Tabellenblatt
ActiveSheet.Cells(lngCnt, 1).Value = txt
'** Zeilenzähler erhöhen
lngCnt = lngCnt + 1
End If
Next
End With
End Sub