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

Forumthread: markieren bis letzte Zeile, dann sortieren

markieren bis letzte Zeile, dann sortieren
10.10.2005 09:27:32
Daniel
Guten morgen an alle da draußen...
Ich möchte eine Spalte markieren. Es gibt zwar bei Recherche einiges darüber, aber nicht genau zu meinem Fall. Ich hoffe ihr könnt mir ihr helfen.
Es geht darum, dass ich Spalte D, von D6 bis zur letzten befüllten Zeile markieren will und dan sortieren. Aber er nimmt bei der Rangeangabe irgendwas net.(Zeile: "Range ("A5"):Zeilen.Sort..." Was ist da falsch? Wie muss ich es richtig schreiben?
Vielen Dak für eure Hilfe Daniel
Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Range("D6").Select
Range(Selection, Selection.End(xlDown)).Select
Range ("A5"): Zeilen.Sort Key1:=Range("D6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 09:35:50
Ingo
Hallo Daniel,
Ungetestet:
Probier mal:
Range ("A5:A"& Zeilen).Sort ...
mfG
Ingo Christiansen
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 09:42:12
Daniel
Hallo Ingo, danke für die Idee,
aber da bringt er mir eine Fehlermeldung. Und zwar folgende: Compile Error: Expected: expression
Daniel
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 10:03:49
Ingo
Hallo daniel,
man soll doch alles genau durchlesen.
Willst Du nun Spalte D oder A sortieren?
mfG
Ingo Christiansen
Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 10:16:02
Daniel
Das habe ich auch gelesen und geändert. Daran liegt es net...
Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Range("D6").Select
Range(Selection, Selection.End(xlDown)).Select
Range ("D6:D"& Zeilen).Sort Key1:=Range("D6"), Order1:=xlAscending, Header:=
xlGuess , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Daten").Select 'öffnet Reiter Daten
Zeitangabe.Show 'öffnet Userform Zeitangabe
Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:33:09
Nepumuk
Hi,
um weiter Missverständnisse auszuschließen. Was soll genau sortiert werden?
Also, von Spalte bis Spalte, ab Zeile.
Gruß
Nepumuk

AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:40:07
Daniel
Hallo
Es sollen Zeitdaten sortiert werden. In dem Format 01:00:12. die sind in einer spalte untereinader aufgelistet. Dazu gibt es in der jeweiligen Zeile zugehörige Werte.
gruß Daniel
Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:44:54
Nepumuk
Hi,
deine Angaben helfen mir nicht. Ich will nicht wissen, was das für Daten sind, sondern welche Spalten sortiert werden sollen. Beispiel: Von Spalte A bis Spalte D ab Zeile 6 nach Spalte B absteigend.
Jetzt klarer?
Gruß
Nepumuk

Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:46:02
Daniel
Spalte D entält ab D6 die genanten zeiten und zu jeder zeile gibt es andere Werte bis spalte P. Über D6 sind nur Kopfzeile und andere Infos.
Hier eine abgespeckte Form des Worksheets
https://www.herber.de/bbs/user/27358.xls
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:55:07
Nepumuk
Hi,
so:
Public Sub prcSort()
    With Worksheets("Daten")
        .Range(.Cells(6, 1), .Cells(.Rows.Count, 16)).Sort Key1:=.Cells(6, 4)
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: markieren bis letzte Zeile, dann sortieren
10.10.2005 11:59:03
Daniel
Ok. Vielen Dank Nepumuk. es funktioniert. Einen schönen Tag noch
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Spalte bis zur letzten Zeile markieren und sortieren in Excel


Schritt-für-Schritt-Anleitung

Um eine Spalte in Excel bis zur letzten befüllten Zeile zu markieren und anschließend zu sortieren, folge diesen Schritten:

  1. Öffne dein Excel-Dokument und gehe zu dem Arbeitsblatt, das die Daten enthält.
  2. Bestimme die letzte befüllte Zeile in der gewünschten Spalte. Dies kannst du mit einer Formel tun:
    Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
  3. Wähle die Startzelle aus, in deinem Fall D6:
    Range("D6").Select
  4. Markiere bis zur letzten Zeile in der Spalte D:
    Range(Selection, Selection.End(xlDown)).Select
  5. Sortiere die Daten (hier wird angenommen, dass die gesamte Zeile von A bis P sortiert wird):
    Range("A6:D" & Zeilen).Sort Key1:=Range("D6"), Order1:=xlAscending, Header:=xlYes

Häufige Fehler und Lösungen

  • Fehler: Compile Error: Expected: expression

    • Lösung: Stelle sicher, dass der Sortierbereich korrekt definiert ist. Überprüfe, ob es Missverständnisse bei den Spalten gibt. Zum Beispiel, wenn du Spalte D sortieren möchtest, sollte der Sortierbereich Range("D6:D" & Zeilen) sein.
  • Fehler: Bereich nicht gefunden oder falsch

    • Lösung: Achte darauf, dass die Range-Definition korrekt ist. Beispielsweise:
      Range("D6:D" & Zeilen).Select

Alternative Methoden

Eine alternative Methode, um eine Spalte bis zur letzten Zeile zu markieren, ist die Verwendung von Excel-Tastenkombinationen:

  • Markieren bis zur letzten Zeile: Klicke auf die Zelle D6 und drücke Strg + Umschalt + Pfeil nach unten, um alle Zellen bis zur letzten befüllten Zeile in Spalte D zu markieren.
  • Sortieren ohne erste Zeile: Wenn du die oberste Zeile nicht sortieren möchtest, stelle sicher, dass du beim Sortieren den Header korrekt angibst.

Praktische Beispiele

Hier ist ein praktisches Beispiel, das zeigt, wie man Daten in einer Excel-Tabelle sortiert:

Angenommen, du hast folgende Daten in Spalte D, ab D6:

D
01:00:12
02:15:05
00:45:30

Um diese Zeitdaten zu sortieren, verwende die oben genannten Codeschnipsel, um die Daten in aufsteigender Reihenfolge zu sortieren.


Tipps für Profis

  • Excel bis Spaltenende markieren: Du kannst auch Range("D6:P" & Zeilen) verwenden, um mehrere Spalten gleichzeitig zu sortieren.
  • Vermeide Fehler beim Sortieren: Wenn du sicherstellen möchtest, dass die erste Zeile nicht sortiert wird, setze Header:=xlYes im Sortierbefehl.

FAQ: Häufige Fragen

1. Wie kann ich einen gesamten Bereich bis zur letzten Zeile markieren? Du kannst den folgenden VBA-Befehl verwenden:

Range("A6:P" & Zeilen).Select

2. Was mache ich, wenn ich die oberste Zeile nicht sortieren möchte? Stelle sicher, dass du beim Sortieren Header:=xlYes angibst, um die erste Zeile als Kopfzeile zu behandeln.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige