Hallo zusammen,
ich brauche dringend eure Hilfe! Ich habe zwei Tabellen mit jeweils 20.000 Datensätze. Habe auch schon ein Makro dafür, aber irgendwie dauert das vieeel zu lange bzw. kommt nie zum Ergebnis. Es werden zwei Spalten verglichen und wenn die Bedingung zutrifft, wird der Doppelte Datensatz in der Tabelle 2 gelöscht:
Sub VergleichTabellen()
For Zeile1 = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For Zeile2 = 1 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Tabelle1").Cells(Zeile1, 1) = Sheets("Tabelle2").Cells(Zeile2, 1) Then
Sheets("Tabelle2").Cells(Zeile2, 1).ClearContents
Exit For
End If
Next Zeile2
Next Zeile1
End Sub
Kann man das so Umbauen, dass die Ausführung schneller wird? Oder gibts ganz andere Alternativen??
Ich hoffe mein Problem ist verständlich genug formuliert :)
Danke! Gruß
|