Dieser Beitrag baut auf Programmierung -> Listbox mehrspaltig füllen / In Tabelle schreiben auf.

Gegebenenfalls zuvor den Beitrag lesen, da hier die gleiche Tabellenstruktur und Userform verwendet wird.

 

 

Die Eigenschaft der Listbox steht auf MultiSelect. Für die Optik wurde bei ListStyle Option gewählt.

 

 

 

 

Nach Aufruf der Userform besteht die Möglichkeit, mehrere Datensätze auszuwählen.

 

 

 

 

Nach Klick auf Auswahl übernehmen, werden die Datensätze in das Tabellenblatt Auswahl geschrieben.

 

 

 

 

Der Code für den Button "Auswahl übernehmen"

 

Private Sub CommandButton2_Click()

Dim wks As Worksheet

Dim lngI As Long

Dim lngZ As Long

Dim intS As Integer

 

Set wks = Worksheets("Auswahl")

lngZ = 2

 

wks.Range("A2:D" & wks.Range("A65536").End(xlUp).Row + 2).ClearContents

 

With Me.ListBox1

  For lngI = 0 To Me.ListBox1.ListCount - 1

    If Me.ListBox1.Selected(lngI) Then

      For intS = 0 To 3

        wks.Cells(lngZ, intS + 1) = .List(lngI, intS)

      Next

      lngZ = lngZ + 1

    End If

  Next

End With

End Sub