Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abruf des Korrespondenzwertes per VBA

Gruppe

Change

Problem

Bei Eingaben eines Landes in Spalte A soll in Spalte B der Korrespondenzwert aus der Data-Tabelle angezeigt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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