Hallo

an meiner Frage werdet Ihr sicherlich sehen, das ich noch kein Fachmann in Sachen VBA bin.

Wunsch bzw. Problem: Ich suche in einer Excel-Tabelle in Spalte A alle Einträge mit dem Wert 123. In der entsprechenden Zeile finde ich in Spalte B einen Wert z.B. abc.
In Tabelle2 suche ich jetzt nach abc und erhalte xyz. In Tabelle3 möchte ich dann das Ergebnis eintragen. Es sollte dann so aussehen:
suche in Tab1 | gefunden Tab1 | gefunden Tab2 |
123 | acb | yxz |
123 | xxx | yyy |
123 | zzz | bbb |

Das Makro bricht aber nach dem ersten Suchlauf ab.

Mein Makro:
------------------------------------------------------------------------------------------------------------
Sub Makro1()

akt_Zeile = 1
suche_1 = 123
With Worksheets("Tabelle1").Range("A:A")
Set c = .Find(suche_1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstRow = c.Row
Do
gefunden_1 = Sheets("Tabelle1").Cells(c.Row, "B").Value

With Worksheets("Tabelle2").Range("A:A")
Set a = .Find(gefunden_1, LookIn:=xlValues, LookAt:=xlWhole)
If Not a Is Nothing Then
gefunden_2 = Sheets("Tabelle2").Cells(a.Row, 2).Value
Sheets("Tabelle3").Cells(akt_Zeile, 1) = suche_1
Sheets("Tabelle3").Cells(akt_Zeile, 2) = gefunden_2
akt_Zeile = akt_Zeile + 1
End If
End With

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Row <> firstRow
End If
End With

End Sub
---------------------------------------------------------------------------------------------------------------

Wer von euch kann mir hier weiter helfen