Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Automatisch bei öffnen sortieren

Automatisch bei öffnen sortieren
chris58
Hallo !
Ich habe eine Datei, die nach dem öffnen automatisch nach Datum in Spalte A sortiert werden soll.
Ich habe das ganze mit dem Makro Recorder aufgezeichnet, doch leider geht das nicht, so wie ich es haben will. Es sorteirt überhaupt nicht. Kann mir bitte einer helfen, damit das nach dem Eingeben der Daten und danach schliessen und wieder öffnen, automatisch sortiert.
Danke im voraus
chris

Private Sub Workbook_Open()
ActiveWindow.SmallScroll Down:=-6
Range("A1:I41").sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatisch bei öffnen sortieren
02.09.2009 13:32:29
Hajo_Zi
Hallo Chris,
Du hasr den Code schon unter DieserArbeitsmappe?
Es wird immer die aktive Tabelle sortiert.
Die Zeile ActiveWindow.SmallScroll Down:=-6 ist sinnlos.

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Automatische Sortierung bei Excel-Datei-Öffnung


Schritt-für-Schritt-Anleitung

Um eine automatische Sortierung in Excel zu erstellen, die beim Öffnen der Datei ausgeführt wird, kannst Du folgenden VBA-Code verwenden. Dieser sortiert die Daten in Spalte A nach Datum.

  1. Öffne die Excel-Datei, die Du automatisch sortieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projekt-Explorer wähle Deine Arbeitsmappe aus und doppelklicke auf "DieseArbeitsmappe".

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_Open()
       Range("A1:I41").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
    End Sub
  5. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (*.xlsm).

  6. Schließe die Excel-Datei und öffne sie erneut. Die Daten sollten nun automatisch nach Datum in Spalte A sortiert werden.


Häufige Fehler und Lösungen

  • Fehler: Die Sortierung funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den Code in "DieseArbeitsmappe" eingefügt hast. Der Code muss in der richtigen Arbeitsmappe platziert werden, damit die Sortierung korrekt funktioniert.
  • Fehler: Die Spaltenüberschrift wird nicht erkannt.

    • Lösung: Ändere Header:=xlGuess zu Header:=xlYes, wenn Deine Daten eine Überschrift in der ersten Zeile haben.
  • Fehler: Die aktive Tabelle wird nicht sortiert.

    • Lösung: Vergewissere Dich, dass Du die Tabelle, die Du sortieren möchtest, aktiv hast, bevor Du die Datei speicherst und schließt.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, kannst Du die Sortierung auch manuell durchführen:

  1. Markiere den Datenbereich, den Du sortieren möchtest.
  2. Gehe zu "Daten" in der oberen Menüleiste.
  3. Klicke auf "Sortieren" und wähle die gewünschten Sortierkriterien aus. Dies kann auch für die automatische Sortierung von Befestigungsteilen oder Drehteilen nützlich sein.

Eine weitere Möglichkeit ist die Verwendung von Excel-Tabellen:

  1. Wandle Deine Daten in eine Excel-Tabelle um (STRG + T).
  2. Aktiviere die Filterfunktion. Dadurch kannst Du die Daten schnell nach verschiedenen Kriterien sortieren.

Praktische Beispiele

Um die Sortierung von Blumeneimern automatisch zu gestalten, kannst Du den gleichen VBA-Code verwenden, um die spezifischen Daten in Deiner Tabelle zu sortieren. Zum Beispiel:

Private Sub Workbook_Open()
    Range("A1:A100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

In diesem Beispiel wird der Bereich A1 bis A100 nach den Werten in A2 sortiert. Passe die Bereiche entsprechend Deiner Daten an.


Tipps für Profis

  • Nutze das Debugging im VBA-Editor, um Fehler im Code aufzuspüren.
  • Experimentiere mit verschiedenen Sortieroptionen, um die automatische Sortierung an Deine Bedürfnisse anzupassen.
  • Halte Deine Makros gut dokumentiert, damit Du später Änderungen vornehmen kannst, ohne den Überblick zu verlieren.

FAQ: Häufige Fragen

1. Kann ich mehrere Spalten gleichzeitig sortieren?
Ja, Du kannst mehrere Key-Parameter im Sortierbefehl hinzufügen, um nach mehreren Spalten zu sortieren.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige