Sub s_verweis()

Dim id_nummer As Integer

Offset = 7
id_nummer = ActiveWorkbook.Worksheets("kunden").Range("B2").Value

For i = 1 To 100
    zeile = i + Offset
    zellen_wert = ActiveWorkbook.Worksheets("kunden").Range("B" & zeile).Value
    If zellen_wert = id_nummer Then
        merk_dir_die_zeile = zeile
    End If
Next i

' variablen schreiben
ansprechpartner = ActiveWorkbook.Worksheets("kunden").Range("C" & merk_dir_die_zeile).Value
strasse = ActiveWorkbook.Worksheets("kunden").Range("D" & merk_dir_die_zeile).Value
stadt = ActiveWorkbook.Worksheets("kunden").Range("E" & merk_dir_die_zeile).Value

'ergebnis schreiben
ActiveWorkbook.Worksheets("kunden").Range("C2").Value = ansprechpartner
ActiveWorkbook.Worksheets("kunden").Range("D2").Value = strasse
ActiveWorkbook.Worksheets("kunden").Range("E2").Value = stadt

End Sub