Private Sub Befüllen(spalte1 As Integer, spalte2 As Integer, vergleichstabelle As Worksheet)
With Eingangstabelle
lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With vergleichstabelle
lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
i = 3
While i <= lZeile1
For j = 2 To lZeile2
If Eingangstabelle.Cells(i, spalte1).Value = vergleichstabelle.Cells(j, spalte2).Value Then
Ergebnistabelle.Cells(i - 2, spalte1).Value = vergleichstabelle.Cells(j, spalte2 + 1).Value
Exit For
End If
Next
If j > lZeile2 Then
Ergebnistabelle.Cells(i - 2, spalte1).Value = Eingangstabelle.Cells(i, spalte1).Address
End If
i = i + 1
Wend
With Eingangstabelle
lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With vergleichstabelle
lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
End Sub