Tabellenabgleich tut nicht...

hallo zusammen,

ich habe folgendes problem: in einem excel file sind in tabelle 1 und 2 jeweils die spalte A mit teilebezeichnungen belegt. ziel meines makros sollte sein jede bezeichnung aus tabelle1 mit tabelle 2 zu vergleichen und bei einem matching den gesuchten begriff hinter die zeile in spalte B in tabelle 2 zu schreiben.
also: begriff in tabelle1 ist "abdeckschiene" gefundene matchings in tabelle2 sind "frontabdeckschiene" und "heckabdeckschiene" - dann sollten jeweils in spalte B hinter den beiden gefunden begriffen der hauptbegriff stehen.

mein bisheriges makro sieht folgenrdermaßen aus - es läuft zwar ohne fehlermeldung durch doch es tut nicht das was es soll...


Sub Makro4()
'
'
'
Dim x As Integer
Dim y As Integer
Dim z1 As Integer
Dim z2 As Integer
Dim V As String
Dim vari1 As String
Dim Namevari1 As String


Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
z1 = ActiveCell.Row
Sheets("Tabelle2").Select
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
z2 = ActiveCell.Row
For x = 1 To z1
Sheets("Tabelle1").Activate
vari1 = Range("A1").Offset(x - 1, 0)

For y = 1 To z2
Sheets("Tabelle2").Activate
Namevari1 = Range("A1").Offset(y - 1, 0)
V = InStr(1, Namevari1, vari1, 1)
If V <> "0" Then Range("B1").Offset(y - 1, 0) = vari1

Next y
Next x


End Sub


wäre um hilfe sehr dankbar da ich keine ahnung mehr hab an was es liegen könnte. (es schreibt den begriffe aus tabelle1 nicht hinter die matchings...)