Gruppe
Allgemein
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.
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