Spaltenvergleich
11.06.2009 17:03:02
Sandra
ich muss ca,. 50.000 Datensätze prüfen, ob sie doppelt vorkommen. Dafür nutze ich folgendes Makro:
Sub Spaltenvergleich_mit_Farbe()
'Vergleicht die Spalte A des Tabellenblattes 1 mit der Spalte 1 des Tabelenblattes 2 und _
markiert die doppelten Werte in rot
Application.Calculation = xlManual
Application.ScreenUpdating = False
Dim i As Integer, j As Integer
'Festlegen der Variabeln
EndeA = Worksheets("1").Cells(Rows.Count, 1).End(xlUp).Row
'legt das Ende des ersten Bereiches fest
EndeB = Worksheets("2").Cells(Rows.Count, 1).End(xlUp).Row
'legt das Ende des zweiten Bereiches fest
For i = 1 To EndeA
'beginnt bei Zelle 1 und hört bei der letzten ausgefüllten Zelle des Bereiches auf
For j = 1 To EndeB
If Sheets("1").Cells(i, 1) = Sheets("2").Cells(j, 1) Then _
Sheets("2").Cells(j, 1).Interior.ColorIndex = 3
'Fortsetzen der Schleife
Next j
Next i
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Nun hätte ich drei Bitten:
a) kann man das Makro in der Schnelligkeit noch optimieren? Wenn ja, wie?
b) kann man die StatusBar einbauen, so dass nach 1000 Datensätzen die entsprechende Anzahl
angezeigt wird z.B. Zeile 1000). Wäre mir wichtig, damit ich weiß da passiert noch was.
c) Kann man auch die automatische Speicherung nach 1000 Datensätzen einbauen?
Mir ist die Datei jetzt schon mehrfach abgestürzt bzw. es hat sich nichts mehr getan und ich habe dann abgebrochen.
Problem: Ich bräuchte genaue Vorschläge, weil mein VBA-LEvel bescheidener als bescheiden ist. :-)
Vielen Dank für Eure Hilfe!
Liebe Grüße
Sandra