Hi,
ich habe gerade für einen anderen Beitrag ein Makro geschrieben, dass Du nur noch für Deine Bedürfnisse anpassen müsstest. Viel Spaß :)
Sub VergleichTabellen()
Zeile3 = 1
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("Tabelle3").Cells(Zeile3, 1) = Sheets("Tabelle1").Cells(Zeile1, 1)
Sheets("Tabelle3").Cells(Zeile3, 2) = Sheets("Tabelle1").Cells(Zeile1, 2)
Sheets("Tabelle3").Cells(Zeile3, 3) = Sheets("Tabelle2").Cells(Zeile2, 2)
Zeile3 = Zeile3 + 1
Exit For
End If
Next Zeile2
Next Zeile1
End Sub
lg Y
|