Mehrere Einträge aus ListBox in Tabelle
13.11.2020 11:48:41
David
ich würde gerne aus einer Listbox mehrere Einträge in eine Tabelle schreiben.
Hier soll als erste Zeile im Tabellenblatt "Zubehör" die Zeile 32 genommen werden.
Beim Klicken sollen für die Einträge automatisch eine Neue Zeile in die erste "Leere" Zeile unter der Zeile 32
eingefügt werden. So das ich diese immer wieder erweitern kann.
Es wird lediglich ein Wert in Spalte 3 eingetragen.
Hier wird die Liste geladen ( Funktioniert ohne Probleme )
Private Sub UserForm_Initialize()
Dim i7 As Long
With ListBox_Zubehör
For i7 = 134 To 158
If Not IsEmpty(Sheets("Vorlagen").Cells(i7, 16)) Then
.AddItem Sheets("Vorlagen").Cells(i7, 16)
End If
Next
End With
End Sub
Private Sub CommandButton_zHinzufügen_Click()
ThisWorkbook.Worksheets("Zubehör").Activate
Dim i As Long
With ListBox_Zubehör
For i = 0 To .ListCount - 1
If .Selected(i) Then
ActiveSheet.Row(32).End(x1Up).Row 1
ActiveSheet.Cells(i, 3).Value = .List(i)
End If
Next i
End With
End Sub
Gruß David