Das Archiv des Excel-Forums

Undo Funktion trotz Änderungsindex

Bild

Betrifft: Undo Funktion trotz Änderungsindex
von: Madman

Geschrieben am: 09.10.2003 11:08:58

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
Bild


Betrifft: AW: Undo Funktion trotz Änderungsindex
von: Hajo_Zi
Geschrieben am: 09.10.2003 11:14:45

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/



Bild


Betrifft: AW: Undo Funktion trotz Änderungsindex
von: Madman
Geschrieben am: 09.10.2003 11:19:08

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?


 Bild

Excel-Beispiele zum Thema " Undo Funktion trotz Änderungsindex"

Funktion ANZAHL2 ohne ausgeblendete Spalten download Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen download
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download Alle Prozeduren und Funktionen auflisten download
In Funktionskategorie einordnen download Ausgabe einer benutzerdefinierten Funktion in Matrixformel download
Benutzerdefinierte Funktion durch Code erstellen und löschen download Ermittlung von Entfernungen über benutzerdefinierte Funktion download
Handhabung von Arrays in benutzerdefininierten Funktionen download Arbeitsmappen-Titel über benutzerdefinierte Funktion download
Eigene Funktionskategorien erstellen download Auf- und absteigend sortieren ohne Sortierfunktion download
Handhabung der Datenbankfunktion DBSUMME() download Alle Funktionstasten aus- und einschalten download
Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel download Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download
SUMMEWENN-Funktion über mehrere Tabellenblätter download Integragtion von SVERWEIS in eine Namens-Funktion download
Benutzerdefiniere Funktion einer Schaltfläche zuweisen download Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack download
Alternative zur DEC2BIN-Funktion ohne Begrenzung auf 512 download NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten download
Über benutzerdefinierte Funktion Filterkriterium anzeigen download Im Assistenten anzuzeigende Funktion festlegen download
Variablen auf mehrere Arten in Funktionen integrieren download Benutzerdefinierte Funktion als Matrixformel download
Matrixfunktion über VBA eintragen, auslesen und löschen download Verlauf prognostizieren (über Funktion SCHÄTZER) download
Funktionstaste F11 beim Öffnen ein- und beim Schließen aus download Beispiele zum Einsatz der ZÄHLENWENN-Funktion download
SVERWEIS-Funktion ohne Berücksichtigung leerer Zellen download ComboBox mit der Funktion des Autofilters download
Benutzerdefinierte Funktion zur Ermittlung hinterleger Kategorien download Eine Zusammenstellung von Matrix-Funktionen download
Der Einsatz der SVERWEIS-Funktion in einem Ausgabeblatt download Beispiele zum Einsatz der ZELLE-Funktion download
Beispiele für den Einsatz der Funktion SVERWEIS download