Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Forumthread: Sortieren

Sortieren
07.06.2022 12:05:51
Sven
https://www.herber.de/bbs/user/153445.xlsm
ich möchte meine Tabelle sortieren nach Spalte H(von 1 bis)G(jüngstes Datum)E(niedrigeste Zahl)
Zeilen 19 und 20 sollen außen vorgelassen werden
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
passwort?
07.06.2022 12:36:34
UweD
AW: Sortieren
07.06.2022 12:42:46
ChrisL
Hi Sven
Ja das Passwort wäre praktisch gewesen. Trotzdem hier mal eine Möglichkeit:

Sub Makro1()
Dim lZ As Long
With Worksheets("17.15 - 18.30 Uhr Volleyball H3")
lZ = .Range("G7").End(xlDown).Row
Debug.Print lZ
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("H7:H" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("G7:G" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("E7:E" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange .Range("C7:J" & lZ)
.Sort.Header = xlNo
.Sort.Apply
End With
End Sub
cu
Chris
Anzeige
AW: Sortieren
07.06.2022 13:05:16
Sven
Passwort ist Ulf :-)
AW: Sortieren
07.06.2022 13:16:00
ChrisL
OK Ulf :)
Und wie gefällt dir mein Makrovorschlag?
AW: Sortieren
07.06.2022 13:47:27
Sven
bei mir kommt da Laufzeitfehler 438
Anzeige
AW: Sortieren
07.06.2022 13:54:09
ChrisL
Kann ich nicht nachvollziehen. Basierend auf der Beispieldatei flutscht der Code bei mir ohne Problem.
Fällt mir auf, folgende Zeile noch löschen:
Debug.Print lZ
(einfach nur überflüssig, hat aber nichts mit dem Fehler zu tun)
AW: Sortieren
07.06.2022 14:07:08
Sven
jetzt läuft es danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige