Allerdings sollen die Daten nun nicht in tabelle2 geführt werden, sondern aus einer anderen Tabelle die im Laufwerk liegt.
Wie muss ich den Schritt sheets("tabelle2") ändern, damit die Daten aus der Laufwerksdatei gelesen und übertragen werden. Am besten wäre es, wenn die Laufwerksdatei nicht offen sein muss.
Danke & Gruß
Junior
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Count = 1 Then
If Target "" Then
Target.Offset(, 1) = Application.VLookup(Target, Sheets("tabelle2").Range("A:D"), 2, 0)
Target.Offset(, 2) = Application.VLookup(Target, Sheets("tabelle2").Range("A:D"), 3, 0)
Target.Offset(, 3) = Application.VLookup(Target, Sheets("tabelle2").Range("A:D"), 4, 0)
Else
Target.Offset(, 1).Resize(, 3).ClearContents
End If
End If
End If
End Sub