Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
22.10.2025 15:30:07
Beitragsproblem im Forum behoben
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Undo Funktion trotz Änderungsindex

Forumthread: Undo Funktion trotz Änderungsindex

Undo Funktion trotz Änderungsindex
09.10.2003 11:08:58
Madman
Hallo Leute!

Habe folgendes Problem:

Durch ein Makro wird jede Änderung in einem seperaten Arbeitsblatt dokumentiert.(Das Makro stammt von hier, danke dafür!)Will ich diese Änderung rückgangig machen ist der Rückgängig-Button jedoch deaktiviert(grau)! Gibt es eine Möglichkeit dies zu ändern?Ich dachte da an die OnUndo- Funktion in Verbindung mit Worksheet_Change?
Hab mit Undo noch keine Erfahrung, brauche deshalb dringend Hilfe! Danke im Voraus!!!

Madman
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Undo Funktion trotz Änderungsindex
09.10.2003 11:14:45
Hajo_Zi
Hallo Madman

sobald ein Makro ausgeführt wird sind die letzten Veränderungen gelöscht. Nach Deiner Beschreibung scheint es mir so, als ob ein Makro läuft.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Undo Funktion trotz Änderungsindex
09.10.2003 11:19:08
Madman
Danke für die schnelle Antwort!

Hier einmal das Makro(eingefügt in deas jeweilige Tabellen-Objekt!):



Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim irow As Integer
If Intersect(Target, Range("A1:ad500")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokoll")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Unprotect password:="pegutp"
.Cells(irow, 1).Value = Target.Address(False, False)
.Cells(irow, 2).Value = "Teile- Maschinenübersicht"
.Cells(irow, 3).Value = vOld
.Cells(irow, 4).Value = vNew
.Cells(irow, 5).Value = Date
.Cells(irow, 6).Value = Application.UserName
.Protect password:="pegutp"
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub



Kann man da evtl. über Variablen oder so nicht eine Art "Gedächtnis" für einige Werte einfügen und dann das Undo- Ereignis nutzen?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige