Getrennt läufen beide Teile des Makros, wenn ich aber das Makro zusammenfüge.
läuft nur der erste Teil.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA As Variant
Dim varB As Variant
If Target.Column <> 1 Then Exit Sub
With Application
varA = .VLookup(Target.Value, _
Worksheets("Artikelstamm").Columns("A:C"), 2, 0)
If Not IsError(varA) 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 begintt der zweite Teil
If Target.Column <> 4 Then Exit Sub
With Application
varB = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:E"), 2, 0)
If Not IsError(varB) Then
Target.Offset(12, 3) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:E"), 2, 0)
Target.Offset(12, 4) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:E"), 3, 0)
Target.Offset(12, 5) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:E"), 4, 0)
Target.Offset(12, 6) = .VLookup(Target.Value, _
Worksheets("Verpackung").Columns("A:E"), 5, 0)
End If
End With
End Sub
Kann mir jemand sagen, was ich falsch mache?
(Ich habe schon alles mögliche probiert, krieg es aber nicht raus)
Vielen Dank für eure Hilfe!
Tschüß
Rolf
Tschüß
Rolf