Excel VBA Suche in For Schleife + Zelle kopieren

[PC FREAKY]

Hallo,

folgende Ausgangssituation:
Tabelle 1:
[table="width: 500"]
[tr]
[td]webw-123[/td]
[td]inhalt 1[/td]
[td]Inhalt 1.1[/td]
[/tr]
[tr]
[td]webw-7525[/td]
[td]inhalt 2[/td]
[td]Inhalt 2.1[/td]
[/tr]
[tr]
[td]webw-7525[/td]
[td]inhalt 3[/td]
[td]Inhalt 3.1[/td]
[/tr]
[/table]

Tabelle 2:

[table="width: 500"]
[tr]
[td]ebw-698[/td]
[td]webw-7525[/td]
[/tr]
[tr]
[td]ebw-632[/td]
[td]webw-123[/td]
[/tr]
[tr]
[td]ebw-675[/td]
[td]webw-7525[/td]
[/tr]
[/table]

Ziel in Tabelle 3:
[table="width: 500"]
[tr]
[td]ebw-698[/td]
[td]inhalt 2[/td]
[td]Inhalt 2.1[/td]
[/tr]
[tr]
[td]ebw-698[/td]
[td]inhalt 3[/td]
[td]Inhalt 3.1[/td]
[/tr]
[tr]
[td]ebw-632[/td]
[td]inhalt 1[/td]
[td]Inhalt 1.1[/td]
[/tr]
[tr]
[td]ebw-675[/td]
[td]inhalt 2[/td]
[td]Inhalt 2.1[/td]
[/tr]
[tr]
[td]ebw-675[/td]
[td]inhalt 3[/td]
[td]Inhalt 3.1[/td]
[/tr]
[/table]

Ich möchte also für jeden Wert der in Tabelle 2 --> Spalte B steht, alle Zeilen von Tabelle 1 in Tabelle 3 kopieren, in denen dieser Wert in Spalte A (Tabelle 1)vorkommt.
Zusätzlich muss in die gleiche Zeile (Am besten in Spalte A) der Wert der in Taballe 2 ----> Spalte A steht.

Das kopieren der Zellen hab ich hingekriegt, wenn ich einen Festen Suchbegriff nehme. Ich kriege es aber nicht hin, dass alle Werte von Tabelle 2 dazu genutzt werden und der Wert aus Tabelle 2 Spalte A mit übernommen wird.
Hier mein aktueller Code:

Sub test()
Dim Suchwert As String
Suchwert = "webw-7525" 



Dim Anzahl As Long, VAktuell As Long
Dim SZelle As Range

 
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("A:A"), Suchwert)
 
For VAktuell = 1 To Anzahl
 If VAktuell = 1 Then
  Set SZelle = Tabelle1.Range("A:A").Find(Suchwert)
  Rows(SZelle.Row).Copy Tabelle3.Cells(VAktuell, 1) 
 Else
  Set SZelle = Tabelle1.Range("A:A").FindNext(SZelle)
  Rows(SZelle.Row).Copy Tabelle3.Cells(VAktuell, 1) 
 End If
Next VAktuell
 
End Sub

Vielleicht kann mir hier ja jemand weiterhelfen.

Grüße, PC FREAKY

 

[cumulonimbus8]

Ich kann einen Weg vorschlagen.
Eine erste Schleife muss die Tabelle 2 ablaufen um dann mit der Referenz Tabelle 1 ablaufend die Zieltabelle 3 Zeile für Zeile aufzubauen.
Dazu taugt FOR-TO nicht, eher WHILE-WEND.

CN8