Zeilen nach Datum sortieren

Forumthread: Zeilen nach Datum sortieren

12.12.2002 09:50:30

Kirsten

Moin zusammen,

ich möchte gerne beim Deaktieren der Tabelle die Daten ab Zeile 19 (ohne Überschrift) nach Datum in Spalte 2 automatisch sortieren lassen.

Habe schon mit dem Makrorecorder die Sortierfunktion aufgezeichnet und sie dann in mein Worksheet_Deactivate-Makro gepackt, bekomme aber immer einen Laufzeitfehler.

Woran liegt das? Hat vielleicht jemand den richtigen Code dafür?

Gruss
Kirsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zeilen nach Datum sortieren

12.12.2002 09:57:19

Steffen D

Hi, poste mal diesen Code!

du musst ihn anpassen.
Wie heißen die Tabellen?

Gruß
Steffen D

Re: Zeilen nach Datum sortieren

12.12.2002 09:59:37

Kirsten

Hi Steffen,

es handelt sich um die Tabelle "Umsatz".

Den Code habe ich - weil er ja nicht funktioniert hat - schon wieder gelöscht. Sorry!

Soll ich noch mal von vorne anfangen und ihn dann posten?

Gruss
Kirsten

Re: Zeilen nach Datum sortieren

12.12.2002 10:12:33

Steffen D

Hi Kirsten,

probier mal hiermit:

Private Sub Worksheet_Deactivate()
lZelle = Sheets("Umsatz").Range("B19").End(xlDown).Row
Sheets("Umsatz").Range("B19:B" & lZelle).Sort Key1:=Range("B19:B" & lZelle), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Wobei immer der Bereich ab B19 bis zur letzten zelle sortiert wird.

Gruß
Steffen D

Re: Zeilen nach Datum sortieren

12.12.2002 10:25:23

Kirsten

Hi Steffen,

hab ich ausprobiert, aber irgendwie haut er mir die Daten durcheinander. Es gibt in den Folgespalten auch jede Menge Leerzellen/-spalten. Hängt das vielleicht damit zusammen?

Gruss
Kirsten

Re: Zeilen nach Datum sortieren

12.12.2002 10:46:00

Steffen D

Hi,

da war ein kleiner fehler drin..
probier mal damit:

Private Sub Worksheet_Deactivate()
lZelle = Sheets("Umsatz").Range("B65536").End(xlUp).Row
Sheets("Umsatz").Rows("19:" & lZelle).Sort Key1:=Range("B19"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Gruß
Steffen D

Re: Zeilen nach Datum sortieren

12.12.2002 11:25:56

Kirsten

Hi Steffen,

immer noch ein Laufzeitfehler '1004' (Sortmethode ist fehlerhaft).

Gruss
Kirsten

Re: Zeilen nach Datum sortieren

12.12.2002 11:32:15

Steffen D

Ich weiß nicht wo da der Fehler liegt, bei mir sortiert er einwandfrei..

wenn du willst kannst mir die datei zuschicken und ich schaue sie dann bei gelegenheit einmal an. (Du kannst ja testdaten erstellen, es müssen nicht deine geheimen Daten sein)

Gruß
Steffen D

Re: Zeilen nach Datum sortieren

12.12.2002 13:58:30

Kirsten

Hallo Steffen,

habe mal ein wenig rumprobiert. Es hakte bei mir zum einen wohl am Blattschutz; den hab ich jetzt vorher erst mal deaktiviert. Problem gelöst.

Und was dein Makro auch nicht mag, sind ausgeblendete Spalten. Lasse in meiner Tabelle durch Doppelklick bestimmte Spalten aus- bzw. wieder einblenden. Sind die Spalten ausgeblendet, kommt es immer zu den Laufzeitfehlern.

Gruss
Kirsten

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Zeilen in Deiner Excel-Tabelle automatisch nach Datum zu sortieren, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
Finde das entsprechende Arbeitsblatt im Projekt-Explorer (links) und doppelklicke darauf.

Füge den folgenden Code in das Codefenster ein:

Private Sub Worksheet_Deactivate()
   Dim lZelle As Long
   lZelle = Sheets("Umsatz").Range("B65536").End(xlUp).Row
   Sheets("Umsatz").Rows("19:" & lZelle).Sort Key1:=Range("B19"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Schließe den VBA-Editor und kehre zur Excel-Oberfläche zurück.
Teste das Makro, indem Du das Arbeitsblatt wechselst oder die Tabelle deaktivierst. Die Daten ab Zeile 19 sollten nun automatisch nach Datum sortiert werden.

Häufige Fehler und Lösungen

Laufzeitfehler 1004: Dieser Fehler kann auftreten, wenn Du versuchst, die Tabelle zu sortieren, während bestimmte Spalten ausgeblendet sind. Stelle sicher, dass alle relevanten Spalten sichtbar sind, bevor Du das Makro ausführst.
Blattschutz aktiv: Wenn der Blattschutz aktiviert ist, kann das Sortieren nicht durchgeführt werden. Deaktiviere den Blattschutz, um dieses Problem zu lösen.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du auch die integrierte Sortierfunktion von Excel nutzen:

Markiere die gesamte Liste, die Du sortieren möchtest.
Gehe zu Daten > Sortieren.
Wähle die Spalte mit den Datumsangaben aus und stelle sicher, dass die Sortierreihenfolge auf Aufsteigend gesetzt ist.
Klicke auf OK, um die Excel-Liste nach Datum zu sortieren.

Praktische Beispiele

Angenommen, Du hast eine Tabelle „Umsatz“, in der in Spalte B die Datumsangaben stehen. Um die Zeilen nach Datum zu sortieren, kannst Du das oben angegebene Makro verwenden. Es sortiert die Daten ab Zeile 19 und berücksichtigt dabei die gesamte Zeile bis zur letzten gefüllten Zelle.

Tipps für Profis

Makros automatisieren: Du kannst das Sortieren auch über andere Ereignisse, wie Worksheet_Change oder Workbook_Open, auslösen, um die Daten automatisch zu sortieren, sobald Änderungen vorgenommen werden oder die Datei geöffnet wird.
Fehlerbehandlung: Füge eine Fehlerbehandlung in Dein Makro ein, um spezifische Fehler besser zu erkennen und zu beheben. Zum Beispiel:
```
On Error GoTo ErrorHandler
' Dein Sortiercode hier
Exit Sub
ErrorHandler:
   MsgBox "Fehler aufgetreten: " & Err.Description
```

FAQ: Häufige Fragen

1. Was mache ich, wenn die Daten nicht korrekt sortiert werden?
Überprüfe, ob alle relevanten Daten vor dem Sortieren sichtbar sind und ob der Blattschutz deaktiviert ist.

2. Kann ich die Sortierung auch manuell durchführen?
Ja, Du kannst die integrierte Sortierfunktion von Excel verwenden, um die Liste nach Datum zu sortieren, ohne ein Makro zu erstellen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilen nach Datum sortieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen nach Datum in Excel sortieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zeilen nach Datum sortieren

Forumthread: Zeilen nach Datum sortieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen nach Datum in Excel sortieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread