ub Suchen_in_zwei_Dateien()
Dim a, b, Zeile1, Zeile2, Zeile2safe, Letztezeile1, Letztezeile2 As Integer
Dim Suchwert, Spalte1, Spalte2 As String
Dim Arbeitsmappe1, Arbwitsmappe2 As String
Application.ScreenUpdating = False
a = 1
b = 1
Suchwert = "Platzhalter"
Arbeitsmappe1 = InputBox("Bitte Arbeitsmappe für Eingabebereich angeben")
If StrPtr(Arbeitsmappe1) = 0 Then Exit Sub
Spalte1 = InputBox("Bitte Spalte für Eingabebereich angeben")
If StrPtr(Spalte1) = 0 Then Exit Sub
Zeile1 = InputBox("Bitte erste Zeile für Eingabebereich angeben")
If StrPtr(Zeile1) = 0 Then Exit Sub
Zeile1 = CInt(Zeile1)
Arbeitsmappe2 = InputBox("Bitte Arbeitsmappe für Suchbereich angeben")
If StrPtr(Arbeitsmappe2) = 0 Then Exit Sub
Spalte2 = InputBox("Bitte Spalte für Suchbereich angeben")
If StrPtr(Spalte2) = 0 Then Exit Sub
Zeile2safe = InputBox("Bitte erste Zeile für Suchbereich angeben")
If StrPtr(Zeile2safe) = 0 Then Exit Sub
Zeile2safe = CInt(Zeile2safe)
Windows(Arbeitsmappe1).Activate
Letztezeile1 = ActiveSheet.Cells(Rows.Count, Spalte1).End(xlUp).Row
Windows(Arbeitsmappe2).Activate
Letztezeile2 = ActiveSheet.Cells(Rows.Count, Spalte2).End(xlUp).Row
a = Zeile1
Do While a > Letztezeile1 = False
Windows(Arbeitsmappe1).Activate
Suchwert = Range(Spalte1 & Zeile1).Value
b = Zeile2safe
Zeile2 = Zeile2safe
Do While b > Letztezeile2 = False
Windows(Arbeitsmappe2).Activate
If Suchwert = Range(Spalte2 & Zeile2).Value Then
Range(Spalte2 & Zeile2).Interior.Color = vbRed
End If
Zeile2 = Zeile2 + 1
b = b + 1
Loop
Zeile1 = Zeile1 + 1
a = a + 1
Loop
End Sub