Sub suche_2_elemente()

suche_verkaeufer = ActiveWorkbook.Worksheets("umsatz").Range("A17").Value
suche_land = ActiveWorkbook.Worksheets("umsatz").Range("B17").Value
Offset = 4

For i = 1 To 10
    zeile = i + Offset
    verkaufer = ActiveWorkbook.Worksheets("umsatz").Range("A" & zeile).Value
    land = ActiveWorkbook.Worksheets("umsatz").Range("B" & zeile).Value
    umsatz = ActiveWorkbook.Worksheets("umsatz").Range("C" & zeile).Value
    
    
    If verkaufer = suche_verkaeufer And land = suche_land Then
        merke_zeile = zeile
    End If
    
Next i

If merke_zeile = 0 Then
    MsgBox "Leider nichts gefunden"
Else
    MsgBox "Es gabe eine Treffer"
    Rows(merke_zeile & ":" & merke_zeile).Select
End If




End Sub