Gruppe
Ereignis
Problem
Bei Eintrag einer Nummer in Spalte A sollen - falls vorhanden - die entsprechenden Werte aus tab1 in die Spalten B:C eingetragen werden.
ClassModule: Tabelle2
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("tab1").Columns("A:C"), 2, 0)
If Not IsError(var) Then
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("tab1").Columns("A:C"), 2, 0)
Target.Offset(0, 2) = .VLookup(Target.Value, _
Worksheets("tab1").Columns("A:C"), 3, 0)
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub