Hallo,

folgendes Problem:

In Tabelle1 stehen Namen und hinter jedem Namen einige Daten. Ich habe Listbox2 die mit Namen aus Tabelle1 gefüllt wird. Die Reihenfolge kann hier beliebig gewählt werden. Ich klicke auf CmdButton6 schreibe den Inhalt von Listbox2 in Tabelle2. Passend dazu soll er jetzt hergehen und in Tabelle2 die Daten aus Tabelle1 zu jedem Namen passend kopieren und in die richtige Zeile einfgen...

Die Listbox lässt sich problemlos in Tbb2 schreiben aber die Werte...

Private Sub CommandButton6_Click()

Dim i As Integer
Dim h As Long

Columns("A:X").Select
    Selection.ClearContents
For i = 0 To ListBox2.ListCount - 1
Cells(i + 2, 1) = ListBox2.List(i)

With Sheets("Streckenspeicher")

For h = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If .Cells(h, "A") Like ListBox2.List(i) Then
        Range(Cells(h, 2), Cells(h, 20)).Value = .Range(.Cells(h, 2), .Cells(h, 20)).Value

        End If
    Next h
 
End With
Next i

End Sub

Wäre wirklich super. Er führt den "Suchen" befehl nicht aus. sondern kopiert einfach Zeile h und fügt diese ein...

Grüße Philipp