Hallo VBAler
ich habe eine 4 spaltige Listbox deren 2,3 und 4 Spalte ich per mulitselect in ein neues Sheet (ab range A2)kopieren möchte, hier ist was ich bisher habe:
Sheet:
Workbooks.Open Filename:="C:\Users\WW\Desktop\sbdATA.xlsx"
hier mein unvollständiger Code:
Dim i As Integer, s As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Tabelle1.Cells(2, 1) = ListBox1(i).Value
End If
Next i
End With
Hat jmd. eine Idee, wie man das hinbekommt?
Thx