Guten Abend miteinander,
ich habe ein Problem mit einem Worksheet Change
Und zwar möchte ich das automatisch ein vlookup durchgeführt wird nachdem ein Wert (das Suchkriterium) in "C3" geschrieben wird.
Ich bekomme dann aber die Fehlermeldung der Typen Unverträglichkeit . Wahrscheinlich liegt es nur an der Uhrzeit das mir der Fehler nicht auffällt oder ich gehe mit der falschen Lösung an den Start.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim liefkto As Range
Set liefkto = Range("C3")
Set liefname = Application.VLookup(liefkto, Workbooks("Artikelpass_vorbereiten.xlsm").Sheets("Tabelle4").Range("A2:H1000"), 4, False)
If liefkto <> "" Then
Range("C5") = liefname
End If
End Sub
Ich hoffe ihr könnt mir weiterhelfen.
mfg Julius
|