Listboxeinträge in Tabelle speichern (Lstbox1auswahl zu Lstbox2) 2 speichern

[WergibtmirRat]

Hallo @all
Habe mal wieder einen kleinen Blackout
In Listbox1 stehen Namen zur Auswahl; per Single oder Multiselect werden jene markiert.
Per Commandbutton (Hinzufügen) in Listbox2 übergeben.
Mit dem nächsten Commandbutton (Weiter) sollen die Einträge in Listbox2 ab Zeile 2 in Spalte 31 nach unten gespeichert werden.

Frage: Wie muss/sollte der Code für die besagte Spalte geschrieben werden.
anbei Probedatei

  Vornamen.xlsm (Größe: 15,72 KB / Downloads: 8)

vorab Danke an die vielen Helfer

[Steffl]

Hallo Frank,

versuchs mal so

Code:

Private Sub CommandButton4_Click()
   Dim lngLastRow As Long
   Dim lngC As Long
  
   With Worksheets("Tabelle1")
      lngLastRow = .Cells(.Rows.Count, 31).End(xlUp).Row + 1
      If ListBox2.ListCount > 0 Then
         For lngC = 0 To ListBox2.ListCount - 1
            .Cells(lngLastRow, 31).Value = ListBox2.List(lngC)
            lngLastRow = lngLastRow + 1
         Next lngC
      End If
   End With
End Sub

[WergibtmirRat]

versuchs mal so

Hallo Stefan, hab dank für den schnellen Code.
Meine kleine Kegeltabelle nimmt immer weiter Formen an.
Nochmals Danke.

[Kuwer]

Hallo Frank,

Code:

Private Sub CommandButton4_Click()
  Dim i As Long
  Dim strliste() As String
  ReDim strliste(1 To ListBox1.ListCount, 1 To 1)
  With ListBox2
    For i = 0 To .ListCount - 1
        strliste(i + 1, 1) = .List(i)
    Next i
  End With
  Range("AE2").Resize(UBound(strliste), 1).Value = strliste
End Sub

Gruß Uwe

[WergibtmirRat]

Hallo Uwe,
auch Dir ein Danke für die schnelle Code-übermittlung.