Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rückgängig Button nach Worksheet_Change

Rückgängig Button nach Worksheet_Change
Chris
Hi,
habe in einem Sheet u.a. ein Worksheet_Change Makro laufen, das bestimmte Werte in bestimmte Zeilen kopiert.
Nachdem ich in dem Sheet ein paar Eingaben gemacht habe, kann ich leider den Rückgängig Button nicht benutzen. Das rührt wohl daher, dass nach einer jeglichen Eingabe das Makro ausgeführt wird.
Hat jemand evtl. eine Idee, wie man das umgehen kann?
Keine Chance ! Makro "löscht" Rückgängig-Historie
21.01.2010 11:27:29
NoNet
Hallo Chris,
da kann ich nur sagen : Ent- oder weder - aber nicht beides !
Zellaktionen durch VBA "löschen" quasi die "Rückgängig-Historie" - ebenso wie das Speichern der Mappe etc... (Profis sagen dazu : "Works as designed").
Gruß, NoNet
AW: Keine Chance ! Makro "löscht" Rückgängig-Historie
21.01.2010 11:47:45
Chris
Könnte man denn statt des Worksheet_Change eine Art Cell_Change Makro verwenden?
á la: Nur wenn in den Zellen B10:B15, C10:C10 Änderungen eingegeben werden, soll Makro ausgeführt werden?
If Not Intersect(Target, [B10:B15,C10]) Is Nothing
21.01.2010 12:04:33
NoNet
Hallo Chris,
so geht's :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B10:B15,C10]) Is Nothing Then
'Hier Dein Makro-Code
End If
End Sub
Gruß, NoNet
Anzeige
AW: If Not Intersect(Target, [B10:B15,C10]) Is Nothing
21.01.2010 12:20:35
Chris
Hi, danke für Deine Rückmeldung. So ähnlich habe ich das auch gemacht:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo errorcatcher
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
If IsEmpty(Target) Then GoTo errorcatcher
Set Rng1 = Range("E78:Q78")
Set Rng2 = Range("E143:Q143")
Set Rng3 = Range("E201:Q201")
If Not Intersect(Rng1, Target) Is Nothing Then
Rng2.Value = Rng1.Value
Rng3.Value = Rng1.Value
End If
If Not Intersect(Rng2, Target) Is Nothing Then
Rng1.Value = Rng2.Value
Rng3.Value = Rng2.Value
End If
If Not Intersect(Rng3, Target) Is Nothing Then
Rng1.Value = Rng3.Value
Rng2.Value = Rng3.Value
End If
errorcatcher:
Application.EnableEvents = True
End Sub
Mit diesem Code wird dann die Rückgängig-Historie gelöscht, da der Code natürlich auch ausgeführt wird, wenn ich in einem beliebigen Feld eine Eingabe mache. Könnte man das also so handeln, dass der Code nur ausgeführt wird, wenn man Eingaben in Rng1, 2 oder 3 macht?
Anzeige
Historie wird NICHT gelöscht !
21.01.2010 12:39:06
hary
Hallo Chris,
weder in Deinem geposteten Code noch durch mein kleines Beispiel wird die Historie gelöscht, wenn Eingaben außerhalb der definierten Bereiche getätigt werden !
Gruß, NoNet
Upps - Sorry : Beitrag ist NICHT von hary ! _oT
21.01.2010 12:39:53
hary
_oT
LoL mT
21.01.2010 12:50:15
hary
Hallo NoNet
...und so bekommt man raus oft raus, wer sich anders benennt.
Gruss hary
AW: Upps - Sorry : Beitrag ist NICHT von hary ! _oT
21.01.2010 13:06:39
hary
Ach Mist, dummer Fehler meinerseits. Unter dem Code hatte ich noch ein paar Anweisungen zum Sperren und Entsperren der Zeilen. Wenn ich die deaktiviere (brauche ich nicht unbedingt), funktionierts mit dem Rückgängig-Button.
Danke für die Rückmeldung!

250 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Workbook SheetChange Änderung
amintire

Hallo, hat evtl jemand eine Lösung für mich diesen Code umzubauen. Momentan funktioniert der so dass alle Mappen in der Datei mit dem Format ausgelöst werden. Es müsste allerdings ausgesuchte Tabellen sein.
Also z.B. Tabelle 1 und 3 und 8 wird mit dem Code formatiert... alle anderen Tabelle...
22.09.2009 22:02:43
Thread-ID: 1104755
4 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Worksheet_Change Problem, wenn Target gelöscht wir
Gianni

Guten Abend
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und die...
17.03.2010 17:49:27
Thread-ID: 1146683
7 Beiträge
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
4
6
3
7
3
2
6
10
4
1
2
2
3
2
5
7
1
1
10
2
5
5
2