Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum sortieren / ohne Kopfzeile

Datum sortieren / ohne Kopfzeile
31.08.2015 10:47:39
Celina
Hey, ich möchte Zeilen nach dem Datum sortieren.
Bei meinem Code sortiert er die Überschriften mit - das soll er nicht.
Vielleicht findet ja jemand den Fehler.
Dim ersteleerezeile As Long
ersteleerezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("tabelle1").Activate
ActiveSheet.UsedRange.Select
Selection.Sort key1:=Range("A2:A" & ersteleerezeile), order1:=xlAscending, Header:=xlGuess, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum sortieren / ohne Kopfzeile
31.08.2015 10:55:30
Daniel
Hi
bei Header:=xlGuess entscheidet Excel selbst, ob die Daten eine Überschrift haben oder nicht.
dabei prüft es u.a. auf unterschiedliche Formatierungen.
wenn du diese Entscheidung aber nicht Excel überlassen willst, dann kannst du mit Header:=xlNo Excel anweisen, die erste Zeile es angegebenen Bereichst nicht zu sortieren. Header:=xlYes würde sie immer mit sortieren.
Gruß Daniel

Anzeige
AW: Datum sortieren / ohne Kopfzeile
02.09.2015 09:37:14
Celina
Hi,
ich habe deinen Hinweis befolgt, aber trotzdem sortiert er noch die erste Zeile mit.
Hier nochmal der Code:
Dim ersteleerezeile As Long
ersteleerezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("tabelle1").Activate
ActiveSheet.UsedRange.Select
Selection.Sort key1:=Range("A2:A" & ersteleerezeile), order1:=xlAscending, Header:=xlNo,  _
ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Anzeige
AW: Datum sortieren / ohne Kopfzeile
03.09.2015 09:46:50
Celina
Hi,
Hat vielleicht jemand noch einen Hinweis?

AW: Datum sortieren / ohne Kopfzeile
06.09.2015 11:43:26
Daniel
Hi
sorry ich hab da die Werte vertauscht:
Header:=xlno heisst, die erste Zeile wird mit sortiert (keine Überschrift)
Header:=xlyes heisst, die erste Zeile ist überschrift und wird nicht mit sortiert.
insgesamt ist das was du da machst noch etwas umständlich.
es reicht bspw beim Key aus, wenn du eine Zelle angibst.
probier mal (für die bessere Übersicht hier nur die wichtigen Parameter):
With Tabelle1.UsedRange
.Sort Key1:=.Cells(1, 1), Order1:=xlascending, header:=xlyes
End with
wenn du mehrere Zeilen überschrift hättest, müsstest du die Überschriftzeilen so ausschliessen (hier mal für 3)
With Tabelle1.UsedRange
with .Resize(.Rows.Count - 3).Offset(3, 0)
.Sort Key1:=.Cells(1, 1), order1:=xlascending, Header:=xlno
End With
End With
Gruss Daniel

Anzeige
AW: Datum sortieren / ohne Kopfzeile
06.09.2015 11:25:18
Hajo_Zi
nur wenige sehen Deine Datei.
Header:=xlNo bedeutet ohne Kopfzeile.

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in Excel nach Datum sortieren ohne Kopfzeile


Schritt-für-Schritt-Anleitung

  1. Öffne Deine Excel-Datei und gehe zu dem Arbeitsblatt, das die Daten enthält.
  2. Bestimme die letzte Zeile in Deiner Tabelle:
    Dim ersteleerezeile As Long
    ersteleerezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
  3. Aktiviere das Arbeitsblatt:
    Sheets("tabelle1").Activate
  4. Wähle den verwendeten Bereich und führe die Sortierung durch:
    ActiveSheet.UsedRange.Select
    Selection.Sort key1:=Range("A2:A" & ersteleerezeile), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    Hierbei sorgt Header:=xlNo dafür, dass die erste Zeile nicht mit sortiert wird.


Häufige Fehler und Lösungen

  • Problem: Die erste Zeile wird trotzdem sortiert.

    • Lösung: Stelle sicher, dass Du Header:=xlNo verwendest. Manchmal wird Header:=xlGuess verwendet, was von Excel automatisch interpretiert wird und möglicherweise die erste Zeile mit einbezieht.
  • Problem: Excel sortiert nicht wie gewünscht.

    • Lösung: Überprüfe den Code und stelle sicher, dass Du den richtigen Bereich und die richtigen Parameter verwendest. Wenn Du mehrere Überschriften hast, musst Du den Bereich entsprechend anpassen.

Alternative Methoden

Eine einfache Alternative zur oben beschriebenen Methode wäre die Verwendung des With-Blocks in VBA, um die Sortierung zu vereinfachen. Hier ist ein Beispiel:

With Tabelle1.UsedRange
    .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
End With

Wenn Du keine Überschrift hast:

With Tabelle1.UsedRange
    .Resize(.Rows.Count - 1).Offset(1, 0).Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
End With

Praktische Beispiele

  1. Sortieren einer Tabelle ohne Überschrift:

    With Tabelle1.UsedRange
       .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
    End With
  2. Sortieren einer Tabelle mit mehreren Überschriften (z. B. drei Überschriften):

    With Tabelle1.UsedRange
       With .Resize(.Rows.Count - 3).Offset(3, 0)
           .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
       End With
    End With

Tipps für Profis

  • Verwende Header:=xlNo, wenn Du sicherstellen möchtest, dass die oberste Zeile nicht sortiert wird. Dies ist besonders wichtig, wenn Du mit Daten ohne Kopfzeile arbeitest.
  • Kontrolliere die Datenformate in den Spalten, die Du sortieren möchtest. Unterschiedliche Formate können das Sortierergebnis beeinflussen.
  • Teste Deinen Code in einer Kopie der Datei, um sicherzustellen, dass alles wie gewünscht funktioniert, bevor Du ihn auf die Originaldaten anwendest.

FAQ: Häufige Fragen

1. Wie kann ich die erste Zeile in Excel nicht sortieren? Verwende Header:=xlNo in Deinem Sortierbefehl, um die erste Zeile von der Sortierung auszuschließen.

2. Was passiert, wenn ich Header:=xlGuess verwende? Mit Header:=xlGuess lässt Du Excel selbst entscheiden, ob die erste Zeile eine Überschrift ist. Dies kann dazu führen, dass die erste Zeile mit sortiert wird, wenn Excel dies für notwendig hält.

3. Kann ich mehrere Zeilen als Überschrift definieren? Ja, Du kannst mehrere Zeilen ausschließen, indem Du die Resize- und Offset-Methoden verwendest, um den Bereich entsprechend anzupassen.

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