Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Den vorhergehenden Zellwert in einer zweiten Zelle zeigen
Gruppe
Change
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