Ich habe ein Makro (siehe unten) das in Tabelle 1 alle Zahlen in Zeile 10 mit allen Zahlen in Zeile 2 vergleicht und die nicht gefundenen Zahlen in Zeile 10 der Tabelle 2 ausgibt. Jetzt möchte ich aber das per Schleife nicht nur die Zeile 10 sonder auch die Zeilen 11,12,usw. bis Zeile 720 mit Zeile 2 verglichen wird und die nichtgefundenen in der dazugehörigen Zeile in Tabelle 2 wiedergegeben wird.
Private aussieben()
Dim v As Variant
Dim irowl As Long, irow As Long
irowl = Cells(Rows.Count, 1).End(xlUp).Row
For irow = 1 To irowl
v = Application.Match(Worksheets("Tabelle1").Cells(10, irow).Value, Rows(2), 0)
If IsError(v) Then
Worksheets("Tabelle2").Cells(10, irow).Value = _
Worksheets("Tabelle1").Cells(10, irow).Value
End If
Next irow
End Sub
Für Hilfe und Anregungen wäre ich sehr dankbar ...
Gruß
John