VBA Vlookup
29.01.2020 17:26:02
Hans
wenn ich in spalte A suchwert löschen dan bleiben aber in spalte C,D,E und F die werte erhalten.
wie kan mann also bzw. suchwert A5 löschen und alle ander ausgaben (C5,D5,E5 und F5 werten werden dan auch entfernt.
anbei mein Code:
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("Artikellijst").Columns("C:AJ"), 3, 0)
If Not IsError(var) Then
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 2) = .VLookup(Target.Value, _
Worksheets("Artikellijst").Columns("C:AJ"), 3, 0)
Target.Offset(0, 3) = .VLookup(Target.Value, _
Worksheets("Artikellijst").Columns("C:AJ"), 7, 0)
Target.Offset(0, 4) = .VLookup(Target.Value, _
Worksheets("Artikellijst").Columns("C:AJ"), 11, 0)
Target.Offset(0, 5) = .VLookup(Target.Value, _
Worksheets("Artikellijst").Columns("C:AJ"), 34, 0)
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub
VgHans