Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

VBA-Aktion über "Rückgängig"-Schaltfläche zurücksetzen

Gruppe

Bearbeiten

Problem

Auf Schaltflächendruck sollen die Werte im ausgewählten Bereich auf zwei Nachkommastellen gerundet werden. Die Aktion ist bei Betätigung der "Rückgängig"-Schaltfläche wieder rückgängig zu machen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub HinUndZurueck()
   Dim rng As Range
   For Each rng In Selection
      Worksheets("Dummy").Range(rng.Address).Value = rng.Value
      If IsNumeric(rng.Value) And Not IsEmpty(rng) Then
         rng.Value = WorksheetFunction.Round(rng.Value, 2)
      End If
   Next rng
   Application.OnUndo "Werte wiederherstellen", "Zurueck"
End Sub

Sub Zurueck()
   Dim rng As Range
   For Each rng In Selection
      rng.Value = Worksheets("Dummy").Range(rng.Address).Value
   Next rng
End Sub