Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Listbox ( Multiselect ) mehrspaltig füllen/ In Tabelle schreiben
 
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.
 
 
Auswahl
 ABCD
1AbteilungPersNrVornameNachname
2Wareneingang1001EgonSchmitz
3Warenausgang1003KarlHuber
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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