Supportnet / Forum / Tabellenkalkulation

Hallo Helfer, gibt es die Möglichkeit ein Makro zu erstellen, dass eine Tabelle im Excel automatisch sortiert, wenn ich eine Tabelle schließe? Vielen Dank SeGe [*][quote][sup][i]Admininfo: Thread verschoben.[/i][/sup][/quote]

Hi SeGe,

kopiere nachfolgenden VBA Code in das VBA Projekt "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ThisWorkbook.Close True
End Sub

Bei dem Code wird das aktive Tabellenblatt vor dem Schließen nach Spalte A sortiert. Danach wird die Datei gespeichert. Soll nach einer anderen Spalte sortiert werden, dann in dem Code in der Zeile

Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

die Zellebezichnung A1 ändern.

Ich hoffe, das reicht Dir. Wenn nicht oder bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 1 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,

vielen Dank für die schnelle Antwort.
Das Makro klappt und wurde auch schon in der Arbeitsmappe gespeichert.

Danke schön.

Hi Diskshut,

bitte schön, gern geschehen.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• kann wegen makro nicht drucken - was machen?
• Markos unsichtbar/sichtbar schalten
• Makro für alle Tabellenblätter verfügbar machen