Gruppe
Allgemein
Problem
Auf Schaltflächendruck sollen Werte in Spalte A eingetragen werden. Diese Aktion soll über Menü BEARBEITEN / RÜCKGÄNGIG wieder aufgehoben werden.
StandardModule: basMain
Sub UndoTest()
Application.OnUndo _
Text:="Eintragung löschen", _
Procedure:=ThisWorkbook.Name & "!UndoEin"
End Sub
Sub UndoEin()
Range("A1:A10").ClearContents
End Sub
Sub Eintragen()
Dim iCounter As Integer
For iCounter = 1 To 10
Cells(iCounter, 1).Value = iCounter
Next iCounter
Call UndoTest
End Sub