Office: vergleich zweier tabellen

hallo,

ich habe folgendes problem:
ich habe 2 spalten mit verschiedenen teilebzeichnungen. die erste spalte hat ca 350 zeilen die zweite ca 18.000

die bezeichnungen sind teilweise gleich, zum beispiel
spalte1:birne / spalte2:birnensaft

ich suche nun ein makro das die einzelnen zellen miteinander vergleicht (A1 mit B1,B2,B3... A2 mit B1,B2,B3 ... usw.) und bei einem matching eine kopie von der entsprechenden zelle aus spalte A, in spalte C, hinter dem gefundenen eintrag in Spalte B,

also:
in zelle A1 steht Birne, in zelle B3569 steht birnensaft, das makro sollte nun "Birne" in C3569 kopieren - und wenn möglich dann weitersuchen sodas die komplette spalte B durchsucht wird.


im mom habe ich die spalten in verschiedenen tabellen und wollte das ergebnis ins tabellenblatt3 kopieren - das erscheint mir aber doch etwas umständlich und daher suche ich nun etwas vereinfachtes.
das vorherige makro sieht folgendermaßen aus:

.
.
.
da stand müll
.
.
.



ich weis aber auch nich ob ds so funktionieren könnte da ich das etwas hilflos aus verschiedenen hilfen zusammengebastelt hab...

wäre um hilfe sehr dankbar!

 

ich hab das ganze falsch angefangen!
bin aber inzwischen auf dem richtigen weg und wenns jmd interessiert kann ich dann mein makro hier reinposten!

 

ich hab das ganze jetzt etwas abgeändert:
ich habe spalte A und spalte B in tabelle1 bzw tabelle2 kopiert.

dioe bedingungen bleiben die selben. in tabelle 1 steht jetzt zum beispiel Abdichtungen und ich tabelle2 entsprechen eine genauere beschreibung.

mein makro sucht jetzt (theoretisch) nach dem begriff in tabelle1 in tabelle2 und bei einem matching kopiert es den begriff hinter den gefundenen, das es also so aussieht:

ADERBUENDELABDICHTUNGEN Abdichtungen
EINZELADERABDICHTUNGEN Abdichtungen
SCHIEBEDACHABDICHTUNGEN Abdichtungen

mein makro sieht nun folgendermaßen aus:


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



zuerst sucht er mal ewig! selbst wenn man in tabelle1 nur einen begriff hat. irgendwo muss noch ein fehler sein - den ich aber nicht finde...

wenn sich jmd mit dem vba script auskennt, bitte doch mal kurz drüberschauen! ich komm alleine nimmer weiter!

 

also das makro funktioniert doch so wie es oben steht!
einziges problem ist das die spalte B in die das matching geschrieben wird nach beendigung das makros wieder gelöscht wird... warum, weis ich nicht!

muss man einen expliziten speicherbefehl einbauen damit die einträge gespeichert werden?

 

moinsen,
für alle die dies interessiert: ich habs geschafft!
der erste weg is etwas alternativ, da ich das eigentliche problem umgangen hab. da im letzten durchlauf immer die gesammte spalte B überschrieben wurde, habe ich in die quelldatei (tabelle1) als letzte zeile einen eindeutigen begriff geschrieben (bei mir ende1985)
damit die datei vor dem letzten überschreiben gespeichert wir schreibt man nun zwischen Next y und Next x eine bedingung die das ganze einfach seperat abspeichert:

Next y
If vari1 = "ende1985" then ActiveWorkbook.SaveCopyAs "C:\temp\....xls"
Next x


also habe ich das eigentliche überschreiben nicht gelöst sondern nur direkt vorher eine copy der datei erstellt. das hat mich dann aber wieder weitergebracht (bzw. ein kollege ;-)) das der ausstieg ja mit einer leeren zelle enden muss. das sollte nicht sein. also im grunde is das ganze viel einfach wenn mann die range z1 = ActiceCell.row mit einer "-1" versieht denn dann erkennt das makro den "aussteiger" (die leere zelle) lässt aber diese in ruhe und nimmt eben die richtige zelle vorher.
z1 = ActiveCell.row - 1

mehr wars nich... aber trotzdem danke an alle die mal einen gedanken dran verschwendet haben!

und nu lass icheuch mit diesem thema auch schon in ruhe - schönes wochenende! ;-)