ich hänge mal wieder fest. In nachfolgendem Code fülle ich eine Listbox in einer Userform mit Werten aus den ersten Spalten einer Tabelle. Jetzt möchte ich das in der Listbox mehrere Einträge ausgewählt werden können um dann in der Tabelle die dazugehörigen Zellen in den 10 Spalten daneben mit weiteren Werten zu ergänzen. Die Werte sollen in einer UserForm abgefragt werden. Wie bekomme ich es hin das die in der ListBox selektierten Werte in der Tabelle wiedergefunden werden um die Zellen in den Spalten daneben zu ergänzen.
Private Sub UserForm_Initialize()
Dim i As Integer, z As Integer
Dim WS1 As Worksheet
Dim Bestell As String
Set WS1 = Sheets("Bestellungen & Aktivierungen")
WS1.Activate
Range("A1").Select
'Worksheets("Bestellungen & Aktivierungen").Unprotect Password:="27823142782"
'erste freie Zeile in Blatt 2, Spalte A finden
lgLetzte = WS1.[b65536].End(xlUp).Row
For i = lgLetzte To 2 Step -1
Bestell = "Behälter Nr: " & WS1.Cells(i, 1).Value & ">> SAP-Bestellnummer: " & WS1.Cells(i, 2).Value & ">> Vorstufe: " & WS1.Cells(i, 4).Value
If WS1.Cells(i, 6).Value > 0 Then GoTo Weiter Else LieferForm.lbBestellungen.AddItem Bestell
Weiter:
Next
End Sub