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
|