Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Speichern Sortieren

Beim Speichern Sortieren
Galic
Hallo,
ich würde gerne ein einfaches Makro laufen lassen, sobald man auf den Speichern oder Speichern unter.. Button drückt.
Ich hab schon nach Lösungen gesucht:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Sortieren beim Speichern
Range("S3").CurrentRegion.Sort Key1:=Range("S3"), Order1:=xlDescending, _
Header:=xlYes
ActiveSheet.Rows.AutoFit
End Sub
Das funktioniert bei mir aber leider nicht...
Könnt ihr mir weiterhelfen?
Danke :D

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

Betreff
Benutzer
Anzeige
AW: Beim Speichern Sortieren
25.07.2012 14:10:35
Arthur
Hallo Galic.
Die Sub 'Workbook_BeforeSave' liegt im Workbook. Damit ist nicht definiert für welches Worksheet die Rangeangabe gedacht ist. Ansonsten sollte die Sortierung funktionieren, wobei 'CurrentRegion' die Zeilen bis zure ersten leeren Zeile berücksichtigt, nicht unbedingt das ganze Blatt.
Gruß, Arthur.
AW: Beim Speichern Sortieren
25.07.2012 15:44:13
fcs
Hallo Galic,
wie von Arthur bereits erwähnt muss diese Makro unter "DieseArbeitsmappe bzw. ThisWorkbook angelegt werden.
Mit einer Methode wie "CurrentRegion" überläßt man es Excel auszusuchen, welcher Berech bearbeitet werden soll. Das sollte man nur machen, wenn man weiss, dass der korrekte bereich erfasst wird. Besser ist es, eine Methode zu verwenden, bei der amn selber die kontrolle über das Ergebnis hat.
Nachfolgend die Anweisungen, wenn alle Zeilen nach der überschriftenzeile nach Spalte S sortiert werden sollen.
Gruß
Franz 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Sortieren beim Speichern
'With Worksheets("TabelleABC") 'Wenn eine bestimmte Tabelle sortiert werden soll
'oder
With ActiveSheet 'wenn immer die beim Speichern aktive Tabelle sortiert werden soll
With .Range(.Rows(3), .Rows(.Cells.SpecialCells(xlCellTypeLastCell).Row))
.Sort Key1:=.Range("S1"), Order1:=xlDescending, Header:=xlYes
End With
.Rows.AutoFit
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige