Private Sub Worksheet_Change(ByVal Target As Range)
Dim liefname As Variant
If Target.Address(0, 0) = "C3" Then
If Target = "" Then Range("C5") = ""
If Target <> "" Then
If IsError(Application.VLookup(Target.Value, Workbooks("Artikelpass_vorbereiten.xlsm") _
.Sheets("Tabelle4").Range("A2:H1000"), 4, False)) Then
MsgBox "Wert " & Target.Value & " nicht gefunden"
Target = ""
Range("C5") = ""
Else
liefname = Application.VLookup(Target.Value, Workbooks("Artikelpass_vorbereiten.xlsm") _
.Sheets("Tabelle4").Range("A2:H1000"), 4, False)
Range("C5") = liefname
End If
End If
End If
End Sub