Spalten vergleichen und Werte übernehmen - Vergleich dauert Jahre

[Cieciu]

Hallo,

bin neu hier im Forum und ausserdem blutiger Anfänger was VBA-Excel angeht.

Habe aber angefangen mir ein Makro zu programmieren, das mit die werte aus zwei Tabellen (1 und 2) vergleichen soll und die Werte der Spalte C aus der Tabelle 2 in die Tabelle 1 übernehmen soll, falls die Werte aus Spalte F in Tabelle 1 mit den Werten aus der Spalte B in Tabelle 2 übereinstimmen.

Fürs bessere Verständnis hänge ich mal mein Programmierversuch an.

Dim zeile_1 As Double
Dim zeile_2 As Double
Dim china_snr_PARTNUMBER As Double
Dim Tabelle1_PARTNUMBER As Double
Workbooks("Tabelle2.xls").Sheets("Tabelle2").Range("A2").SpecialCells(xlCellTypeLastCell).Select
china_snr_PARTNUMBER = Selection.Row

Workbooks("Tabelle1.xls").Sheets("Tabelle1").Activate
ActiveSheet.Range("F2").SpecialCells(xlCellTypeLastCell).Select
Tabelle1_PARTNUMBER = Selection.Row

For zeile_1 = 6 To Tabelle1_PARTNUMBER 'hier wird die Spalte 6 = Spalte F aufgerufen
For zeile_2 = 2 To Tabelle2_PARTNUMBER 'hier wird die Spalte 2 = Spalte B in der Tabelle2 aufgerufen
If Workbooks("Tabelle1.xls").Sheets("Tabelle1").Cells(zeile_1, 6).Value = _
Workbooks("Tabelle2.xls").Sheets("Tabelle2").Cells(zeile_2, 2).Value Then Exit For
Next
If zeile_2 <= Tabelle2_PARTNUMBER Then
Workbooks("Tabelle1.xls").Sheets("Tabelle1").Cells(zeile_1, 13).Value = _
Workbooks("Tabelle2.xls").Sheets("Tabelle2").Cells(zeile_2, 3).Value
End If
Next

Leider dauert dieser Verleichsprozess gefühlte Tage! Da Tabelle2 knapp 3000 Zeilen und Tabelle2 über 30000 Zeilen hat.

Wie könnte ich das beschleunigen bzw optimieren!?

Vorab besten Dank für die Hilfe!!