Gruppe
Ereignis
Bereich
Change
Thema
Den vorhergehenden Zellwert in einer zweiten Zelle zeigen
Problem
Wie kann ich bei Eingaben in eine Zelle den jeweils vorhergenden Zellwert in einer zweiten Zelle anzeigen lassen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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