Gruppe
Funktion
Bereich
SVERWEIS
Thema
Der Einsatz der SVERWEIS-Funktion in einem Ausgabeblatt
Problem
Beispiel für ein Ausgabeblatt. Die Steuerung erfolgt über ScrollBars.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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