Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro rückgängig machen

Makro rückgängig machen
14.08.2007 11:38:43
Thomas
Hallo liebe Excel Gemeinde,
habe folgendes Problem. Mit einem aufgezeichneten Makro sortiere ich eine
etwas größere Liste nach den Kosten (Spalte J) mit folgendem aufgezeichnetem Makro:

Private Sub CommandButton1_Click()
Range("B11:V133").Select
ActiveWindow.ScrollRow = 11
ActiveWindow.LargeScroll ToRight:=-1
Selection.Sort Key1:=Range("J11"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A11").Select
End Sub


Jetz möchte ich mit einem zweiten Command Button diese Aktion "reseten" können, so dass die Liste wieder ursprünglich sortiert ist. Leider ist keine Logik hinter der ursprünglichen Sortierung, also einfach neu z.B. nach Alphabet geht nicht.
Ich muss also irgendwie das erste Makro rückgängig machen.
Hoffe jemand kann mir helfen. Möchte mal auf diesem Weg Danke sagen, für alle Excel Freaks, die uns hier helfen. Dieses Forum ist absolut das beste in Deutschland!
Gruß
Thomas

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro rückgängig machen
14.08.2007 11:41:00
Ramses
Hallo
Veränderungen mit einem Makro können nicht rückgängig gemacht werden.
Alternativ:
Die Tabelle zuerst kopieren
Dort sortieren und die Tabelle bei Bedarf wieder löschen
Gruss Rainer

Nein das geht nicht! aber ... ein Tipp
14.08.2007 11:47:00
Matthias
Hallo
Das Ausführen des Makro kann man nicht rückgängig machen!

Für die Zukunft ein Tipp
Lege eine Hilsspalte an mit fortlaufender Nummerierung also von 1 ... bis ?
Diese Spalte musst Du in die Sortierung mit einbeziehen! Bei einem nicht gewollten Sortierergebnis,
kannst Du dann nach dieser Spalte aufsteigend sortieren und hast somit Deine Ausgangssituation
wieder vorliegen.
Userbild

Anzeige
AW: Nein das geht nicht! aber ... ein Tipp
14.08.2007 11:54:24
Thomas
Matthias hat recht, das geh nicht, weil
Excel dann die Tabelle in der falschen Sortieren einfügt.
Möchte das irgendwie gern ohne eine zusätzliche Hilfsspalte lösen, da
es eh schon so unübersichtlich ist und die anderen Spalten weitgehend belegt sind
Gruß zurück.

Neues Problem
14.08.2007 12:32:58
Thomas
Naja, wird mir wohl nix anderes übrig bleiben.
Aber es taucht ein neues Problem auf:
Wenn ich den Command Button drücke bleibt der irgendwie mitten im Bild stehen, obwohl er eigentlich
unterhalb der Tabelle sitzt.
Erst wenn ich 1 mal ganz hoch und einmal ganz runter scrolle löst sich das auf.
Stört irgendwie optisch, weil so Zellen verdeckt werden. Weiß jemand Abhilfe?

Anzeige
AW: Makro rückgängig machen, Trick 17
14.08.2007 12:43:00
Rudi
Hallo,
die alte Reihenfolge könnte man in einer benutzerdefinierten Liste speichern und bei Reset nach dieser Liste sortieren.
etwa so:

Private Sub CommandButton1_Click()
'Sortieren
Application.AddCustomList ListArray:=Range("J11:J133")
Range("B11:V133").Sort Key1:=Range("J11"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub




Private Sub CommandButton2_Click()
'Reset
Range("B11:V133").Sort Key1:=Range("J11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=CustomListCount + 1, MatchCase:=False, Orientation:=xlTopToBottom, _
_
DataOption1:=xlSortNormal
Application.DeleteCustomList (CustomListCount)
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Makro rückgängig machen, Trick 17, Korrektur
14.08.2007 12:44:31
Rudi
Hallo,
die alte Reihenfolge könnte man in einer benutzerdefinierten Liste speichern und bei Reset nach dieser Liste sortieren.
etwa so:

Private Sub CommandButton1_Click()
'Sortieren
Application.AddCustomList ListArray:=Range("J11:J133")
Range("B11:V133").Sort Key1:=Range("J11"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub




Private Sub CommandButton2_Click()
'Reset
Range("B11:V133").Sort Key1:=Range("J11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:= _
xlTopToBottom, _
DataOption1:=xlSortNormal
Application.DeleteCustomList (Application.CustomListCount)
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
... geht das nicht daneben ?
14.08.2007 13:03:54
Ramses
Hallo Rudi
In der Benutzerdefinierten Liste können keine Zahlen aufgenommen werden.
Das heisst, wenn Zahlen in der Liste vorkommen werden die verworfen und dein Liste enthält nur die Textwerte des Bereiches.
Gruss Rainer

AW: ... geht das nicht daneben ?
14.08.2007 13:14:51
Rudi
Hallo Reiner,
in der Tat! Das wusste ich nicht.
War eh nur ein Gedanke. Außerdem müsste man noch so einiges Abfangen, damit nicht ungewollt Benutzerlisten gelöscht werden.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Makro rückgängig machen
14.08.2007 13:25:00
Thomas
Hallo an alle die sich gekümmert haben.
Hab es so wie von Matthias vorgeschlagen mit einer Hilfsspalte gelöst.
Das zweite Problem ist auch beseitigt. Einfach im aufgezeichneten Makro einmal Tabellenblatt wechseln und zurück zum richtigen und schon ist der Command Button verschwunden.
Danke für die Hilfe.
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4