Office: (Office 365) VBA: Kein "Undo" mehr möglich?

Hallo,

ich habe meine Bestell-Tabelle so abgeändert, dass einiges per Makro, bzw. mittels Buttons übertragen wird.
Also zum Beispiel wird mit einem Klick auf den Button die Lieferadresse gleich der Rechnungsadresse gesetzt, oder es wird ein Preis ausgerechnet und eingetragen usw.
Das ganze hat (für mich) den Vorteil, dass die Zellen selber keine Formeln haben, die man versehentlich überschreiben kann, bzw. kann die Werte am Ende noch nacharbeiten, was sehr praktisch ist.

Wie dem auch sei. Mir ist jetzt aber auch aufgefallen, dass man diese Aktionen nicht via "Undo" rückgängig machen kann. Wenn jetzt also z.B. jemand versehentlich auf den Button klickt, der die Lieferadresse überschreibt, ist das natürlich doof, wenn man das nicht rückgängig machen kann.
Aber für mich im Geiste ist das ja eigentlich auch nur eine Eintragung, deswegen verstehe ich nicht, warum man das nicht rückgängig machen kann.

Alternativ müsste ich bei jedem Button erst ein "Willst du das wirklich?" Fenster vorschalten, aber das möchte ich nun wirklich nicht.

Aber die Kernfrage ist erstmal, ob Eintragungen mit Range("xx").Value nicht "rückgängig" gemacht werden können?

Vielen Dank

Andreas

 

Moin!
Aktionen mittels VBA löschen den Undo-Speicher.
Dies seit jeher so …
Es gibt zwar Application.Undo [klick], aber das hilft hier auch nicht.

Gruß Ralf

 

Moin,

ergänzend zu Ralf's Erklärung:
Du könntest Dir aber eine interne Undo-Funktion programmieren, indem Du Dir für die betreffenden Zellen (Intersect) eine öffentliche Variable nutzt, die sich immer den letzten Wert vor der Änderung (im Selection_Change Ereignis) merkt und den über einen Rückgängig Button zurückschreiben kann.

 

Danke für die Erklärung. Das ist ja schon fast ein Bug als eine Funktion..
Da dieses "Fehlverhalten" letzten Endes auf mehrere Aktionen zutrifft, wäre das Programmieren einer Undo-Funktion vermutlich eher Fleißarbeit und - bei mir - vermutlich Fehlerbehaftet.
Ich glaube dann werde ich vorher eine Checkbox machen, die prüft ob die überschriebene Zelle bereits einen Wert enthält und wenn ja, dann kommt kurz ein Fenter, welches fragt, ob man die Werte wirklich überschreiben möchte. Ich glaube das wäre am Sinnvollsten.

 

Hi Andreas,

wenn du keine Abfrage für die einzelnen Button machen willst - hast du schon mal darüber nachgedacht, die Eintragungen nicht über Button im Tabellenblatt zu machen sondern das ganze als UserForm zu programmieren? Dort kann man ja immer alles nochmal nachlesen bevor man die Änderung(en) dann auch tatsächlich ausführt.

---

 

Das ist weniger aufwendig als Du denkst. Hab Dir mal ein Beispiel angehängt, dass per Button den Wert aus E5 in C5 schreibt und über einen anderen Button das wieder rückgängig macht. Musst Du natürlich an Deine Bedingungen anpassen...