Thema: Der Einsatz der SVERWEIS-Funktion in einem Ausgabeblatt

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim var As Variant
   If Target.Address <> "$A$1" Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   var = Target.Value
   Application.Undo
   Range("A2").Value = Range("A1").Value
   Target.Value = var
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS