Microsoft Excel

Herbers Excel/VBA-Archiv

Spalte ab Zeile 2 sortieren

Betrifft: Spalte ab Zeile 2 sortieren von: Eberhard
Geschrieben am: 27.11.2020 21:42:25

Hallo zusammen
Ich möchte dass es mir im Tabellenblatt "Depot" die Spalte "L" ab Zeile 2 bis zur letzten Zeile nach dem Alphabet sortiert!
Wie muss ich das machen?
Kann mir jemand dabei behilflich sein?

Besten Dank.
Gruss Daniel

Betrifft: AW: Spalte ab Zeile 2 sortieren
von: Matthias L
Geschrieben am: 27.11.2020 21:58:19

Hallo,

Überschrift in Zelle("L1") setzen.
Dann den den Filter setzen. (Daten-Filtern)
Dann klickst Du auf den Pfeil in "L1" (Dropdown)
und wählst von a-z Sortieren(also aufsteigend). Das wars schon.

Gruß Matthias

Betrifft: AW: Spalte ab Zeile 2 sortieren
von: Eberhard
Geschrieben am: 28.11.2020 02:08:14

Hallo Matthias
Danke für Deine Hilfe. Habe vergessen zu schreiben, dass ich dies über VBA mit einem Code machen möchte!

Gruss Daniel

Betrifft: AW: Spalte ab Zeile 2 sortieren
von: Charly CNX
Geschrieben am: 28.11.2020 06:00:04

Hi Daniel
Versuch mal
Sub Daniel()
    Sheets("Depot").Range("L:L").Sort _
    Key1:=Cells(1, 12), Header:=xlYes, Order1:=xlAscending
End Sub
Gruss Charly

Betrifft: AW: Spalte ab Zeile 2 sortieren
von: Eberhard
Geschrieben am: 28.11.2020 08:06:46

Hallo Charly
Leider krieg ich einen Laufzeitfehler 1004!

Gruss Daniel

Betrifft: AW: Spalte ab Zeile 2 sortieren
von: Charly CNX
Geschrieben am: 28.11.2020 08:42:39

Hi Daniel
Ich nicht. MS 365 Abo
sh. Anhang
https://www.herber.de/bbs/user/141898.xlsb

Gruss Charly

Betrifft: Der Makrorecorder ...
von: Charly CNX
Geschrieben am: 28.11.2020 10:06:22

Hi Daniel
... spuckt folgendes aus (ein wenig angepasst)
Sub Makro1()
With Worksheets("Depot")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=Range("L2"), SortOn:=xlSortOnValues, _
     Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
         .SetRange Range("L:L")
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
 End With
End Sub
Gruss Charly

Betrifft: dann lad Deine Mappe hoch
von: Matthias L
Geschrieben am: 28.11.2020 10:29:26

Hi,

Der Code funktioniert.

Gruß Matthias

Betrifft: Der Code funktioniert, wenn das Blatt "Depot"
von: Daniel
Geschrieben am: 28.11.2020 12:12:18

das ActiveSheet ist.
Sollte ein anderes Blatt aktiv sein, kommt es zu dem Fehler.

Gruß Daniel

Betrifft: du probierst es eben immer wieder, Daniel E.
von: Matthias L
Geschrieben am: 28.11.2020 15:38:52

... und wenn ich Dir dann meine Meinung schreibe fängst Du wieder an zu heulen.
Ich habe Dir schon gefühlte 1000 mal geschrieben: Lass mich in Frieden!
BEGREIF ES ENDLICH MAL

Der TE hat nichts von mehreren Sheets geschrieben. Außerdem brauch ich Deinen Hinweis nicht
Ich weiß selbst das man sauber referenzieren sollte.

Ich hätte das jetzt nicht geschrieben, wenn Du Deinen Beitrag nicht an mich gerichtet hättest.
Aber Du hast ja anscheinend die Baumstruktur immer noch nicht kapiert
und Provozieren ist ja genau Dein Ding. Sonst fühlst Du Dich ja nicht wohl.

Betrifft: BasisFrehler
von: Daniel
Geschrieben am: 28.11.2020 11:24:32

Hi

1. Range ohne Tabellenblattangabe bezieht sich au das aktive Tabellenblatt.

2. die Keys einer Sortierung müssen Teil des sortierten Bereichs sein, dh sie müssen auch auf dem selben Tabellenblatt liegen

Daher:

Sheets("Depot").Range("L:L").Sort Key1:=Sheets("Depot").Cells(1, 12), Header:=xlYes, Order1:=xlAscending

Gruß Daniel

Betrifft: Danke Daniel owT
von: Charly CNX
Geschrieben am: 28.11.2020 11:31:11



Beiträge aus dem Excel-Forum zum Thema "Spalte ab Zeile 2 sortieren"