Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

nach Ausführung von Makro Button Rückgängig nicht möglich

1,799 views
Skip to first unread message

oesterlein

unread,
Jan 22, 2003, 3:50:49 PM1/22/03
to
Kann mir jemand bei Excel 97 helfen?
Nach Ausführung von VBA-Makros ist die Funktion Rückgängig nicht mehr
möglich. Wie kann ich Zellen, die von einem Makro überschrieben wurden, in
den Urzustand versetzen?

Gruß Johannes


Bernd Held

unread,
Jan 22, 2003, 3:54:58 PM1/22/03
to
Hallo Johannes,

das ist normal! Die eRgebnisse, die von Makros erzeugt werden, können nicht
widerufen werden.
Wenn Du aber die Datei schließt ohne zu speichern, dann ist es auch ok.

Viele Grüße
Bernd
MVP für Microsoft Excel
Jetzt neu: VBA-Datenbank und "Excel-VBA in 21 Tagen"
unter http://www.held-office.de


"oesterlein" <oeste...@t-online.de> schrieb im Newsbeitrag
news:b0n06q$87a$05$1...@news.t-online.com...

Karl Erlauer

unread,
Jan 22, 2003, 3:58:50 PM1/22/03
to
Hallo Johannes!

Ich glaube, das geht überhaupt nicht.
Lasse mich aber gerne berichtigen!

MfG, Karl

"oesterlein" <oeste...@t-online.de> schrieb im Newsbeitrag
news:b0n06q$87a$05$1...@news.t-online.com...

Thomas Ramel

unread,
Jan 23, 2003, 1:09:38 AM1/23/03
to
Grüezi Johannes

oesterlein schrieb:

Da Makros die 'unmöglichsten' Dinge anstellen können, ist die Undo-Funktion
nach dem Ausführen eines Makros nicht aktiv.
Du kannst/musst eine Prozedur schreiben, die exakt das zurücksetzt, was Du
in deinem Makro 'angestellt' hast und dann mit der OnUndo-Methode dieses
Makro zur Verfügung stellen. Die Online-Hilfe im VBA-Editor gibt nähere
Auskunft darüber.

Hier ein kleines Beispiel; kopiere beide Makros in ein eigenes Modul:

Sub Zahlen()
Dim intI As Integer
ActiveSheet.Range("A1:B10") = 10
For intI = 1 To 10
ActiveSheet.Cells(intI, intI Mod 2 + 1).Interior.ColorIndex = 3
Next intI
Application.OnUndo "Makro Zahlen Rückgängig", "ZahlenRetour"
End Sub

Sub ZahlenRetour()
With ActiveSheet.Range("A1:B10")
.ClearContents
.Interior.ColorIndex = xlNone
End With
End Sub

Nach dem ausführen des Makros 'Zahlen' steht die 'Undo'-Funktion zur
Verfügung. Wenn Du auf den Dropdown-Pfeil des Und-Buttons klickst, steht
dort der Kommentar 'Makro Zahlen Rückgängig' drin.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

oesterlein

unread,
Jan 23, 2003, 2:15:32 PM1/23/03
to
servus thomas,

ich glaube Dein Ansatz hilft mir weiter:
da auch Zellen mit vorhandenen Inhalt überschrieben werden können, werde ich
diesen vorher an einer anderen Stelle kopieren und mit der OnUndo-Methode
zurückholen.

Vielen Dank!


"Thomas Ramel" <t.r...@mvps.org> schrieb im Newsbeitrag
news:3E2F8722...@mvps.org...

Thomas Ramel

unread,
Jan 24, 2003, 3:55:06 PM1/24/03
to
Grüezi Johannes

oesterlein schrieb:


>
> ich glaube Dein Ansatz hilft mir weiter:
> da auch Zellen mit vorhandenen Inhalt überschrieben werden können, werde ich
> diesen vorher an einer anderen Stelle kopieren und mit der OnUndo-Methode
> zurückholen.

Ja; gewisse 'Vorarbeit' muss eventuell schon im eigentlichen Makro
'geleistet werden. Aber da Du dieses ja selbst schreibst, sind alle
Möglichkeiten gegeben.

tobias...@gmail.com

unread,
Jan 14, 2014, 1:00:32 AM1/14/14
to
Hallo Thomas,

keine Ahnung, ob der Beitrag noch gelesen wird, aber einen Versuch ist es wert...

Erstmal danke für den Tipp.
Das funktioniert soweit auch für die Dinge, die das Makro gemacht hat - aber der Rest der Undo-Liste ist gelöscht. Gibt es eine Möglichkeit, auch die "alten" Undos zu behalten?

Grüße
Tobias

herrch...@googlemail.com

unread,
Apr 7, 2017, 10:09:31 AM4/7/17
to
Hallo, Tobias,
genau das möchte ich auch wissen. hast du zwischenzeitlich eine lösung gefunden?

Gruß
Dong
0 new messages