Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

SVERWEIS als Ereignisprozedur

Gruppe

Change

Problem

Bei Eintrag einer Nummer in Spalte A sollen - falls vorhanden - die entsprechenden Werte aus tab1 in die Spalten B:C eingetragen werden.

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

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