Gott sei Dank konnte ich Flash vermeiden. <img src="/ubbthreads/images/graemlins/winkwink.gif" alt="" />

Hier der bisherige Code:

Code
Sub compare_and_copy()
    Dim zeilen1, zeilen2, i, j As Integer
    
    zeilen1 = xxx
    zeilen2 = yyy
    
    For i = 1 To zeilen1
        For j = 1 To zeilen2
            If Worksheets("Tabelle1").Cells(i, 1).Value = Worksheets("Tabelle2").Cells(j, 1).Value Then
                Worksheets("Tabelle1").Cells(i, 3).Value = Worksheets("Tabelle2").Cells(j, 2)
                Worksheets("Tabelle2").Rows(j).Delete
                zeilen2 = zeilen2 - 1
                j = zeilen2
            End If
        Next j
    Next i
                
        
End Sub


Bisher klappt's recht gut... manche Zellen haben allerdings so viel Inhalt, daß das Makro da aussteigt, aber in den wenigen Einzelfällen kann ich das dann manuelle kopieren. Immer noch besser, als alle 5000 Zeilen selbst zu checken und zu kopieren. <img src="/ubbthreads/images/graemlins/biggrin.gif" alt="" />

Nigel Powers: "There are only two things I can't stand in this world. People who are intolerant of other people's cultures... and the Dutch!"