Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makroaktion über die UnDo-Schaltfläche zurücknehmen

Gruppe

Bearbeiten

Problem

Auf Schaltflächendruck sollen Werte in Spalte A eingetragen werden. Diese Aktion soll über Menü BEARBEITEN / RÜCKGÄNGIG wieder aufgehoben werden.

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

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