ich benötige bitte eure Hilfe.
Ich verwende die Listbox in Multiselectextended Modus mit 4 Spalten.
Die Erste SPalte kann Problemlos mit dem Code ausgelesen werden:
Sub test
Dim N As Integer
For N = 0 To Listbox1.ListCount - 1
If Listbox1.Selected(N) = True Then
ThisWorkbook.Worksheets("Eingaben").Range("AE" & Rows.Count).End(xlUp).Offset(1, 0) = Listbox1. _
List(N)
End If
Next
End Sub
wie kann ich Spalte 4 in Kombination mit Spalte 1 auslesen (auch bei mehr Auswahl ?
Vielen lieben Dank