Ich möchte aus einer Tabelle Daten sortieren und in unterschiedliche Listenfelder eintragen.
Das geht zwar mit diesem Listing, aber eben nur eine Spalte (SAP) und nicht alle Spalten.
Kann mir einer bitte sagen, wie ich in den Listenfeldern mehrere Spalten übertragen kann?
Private Sub UserForm_Initialize()
' Variablen deklarieren
Dim i As Integer
Dim laR As Long
' Sheet ansprechen
Worksheets("Aufträge").Activate
' Abfrage wo die erste leere Zeile ist
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To laR
' suchen nach P
If Cells(i, 23).Value = "P" Then
ListBox1.AddItem Cells(i, 1)
'suchen nach L
Else
If Cells(i, 23).Value = "L" Then
ListBox2.AddItem Cells(i, 1)
' Rest der Liste geht in das Faktura Liste
Else
ListBox3.AddItem Cells(i, 1)
End If
End If
Next
End Sub
Wäre über eine Idee hoch erfreut und danke für die Hilfe
Christian