Gruppe
Ereignis
Problem
Bei Eingaben eines Landes in Spalte A soll in Spalte B der Korrespondenzwert aus der Data-Tabelle angezeigt werden.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
End If
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = WorksheetFunction.VLookup( _
Target.Value, Worksheets("Data").Columns("A:B"), 2, 0)
ERRORHANDLER:
Application.EnableEvents = True
End Sub