Ich möchte Daten aus zwei Tabellenblättern Artikelstamm und Verpackung nach Tabellenblatt Eingabe übernehmen.
Der erste Teil des Makros funktioniert. Eingabefeld ist A2
Der zweite Teil des Makros funktiniert nicht. Eingabefeld ist D2
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 1 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Artikelstamm").Columns("A:C"), 2, 0)
If Not IsError(var) Then
Target.Offset(9, 3) = .VLookup(Target.Value, _
Worksheets("Artikelstamm").Columns("A:C"), 2, 0)
Target.Offset(13, 3) = .VLookup(Target.Value, _
Worksheets("Artikelstamm").Columns("A:C"), 3, 0)
End If
End With
' ab hier funktioniert es nicht
If Target.Column <> 4 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:C"), 2, 0)
If Not IsError(var) Then
Target.Offset(15, 7) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:C"), 2, 0)
Target.Offset(15, 7) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:C"), 3, 0)
End If
End With
End Sub
Könnt ihr mir helfen?
Tschüß
Rolf