Moin ihr Lieben, ich habe hier einen Code bekommen um das Ergebnis eines Sverweises in einer anderen Zeile auszugeben damit beim Löschen davon die Formel nicht beschädigt wird. Der Code funktioniert schon gut allerdings muss ich das ganze nicht nur für eine Zeile sondern für mehrere Zeilen machen. um genau zu sein 2000 Stück. Also H2, H3 .... I2, I3 ... Und so weiter. Wie passe ich den Code so an? Gruß Kitty

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ergebnis As String
If Target.Address(0, 0) = "C3" Then
    If Target <> "" Then
        On Error GoTo Ausgang
        Ergebnis = Application.VLookup(Target.Value, Workbooks("Mappe1.xlsm") _
        .Sheets("Tabelle2").Range("A2:B1000"), 2, False)
        Range("C5") = Ergebnis
    Else
        Range("C5") = ""
    End If
End If
Exit Sub
 
Ausgang:
Range("C5") = "Wert nicht vorhanden!"
End Sub