Listbox bestimmte Spalten auslesen
01.12.2018 13:11:42
Richard
Liebe Excel Gemeinde,
lese mit folgendem Code meine Listbox(Multiselect)aus und lasse die Daten in Tabelle2 anzeigen _funktioniert einwandfrei.
Meine Frage dazu. möchte gerne z.B. nur die Spalte A,C und E auf Tabelle2 übertragen.
Was und wo muss ich in den Code eintragen.
im voraus schon mal vielen Dank für Eure Hilfe
Gruß Richard
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim lngI As Long
Dim lngZ As Long
Dim intS As Integer
Set wks = Worksheets("Tabelle2")
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 7
wks.Cells(lngZ, intS + 1) = .List(lngI, intS)
Next
lngZ = lngZ + 1
End If
Next
End With
End Sub
Anzeige