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

Forumthread: Bereiche abhängig vom Datum sortiern

Bereiche abhängig vom Datum sortiern
19.06.2015 08:32:27
Tim
Hallo zusammen,
folgendes Problem liegt mir derzeit vor:
Ich habe ein Tabellenblatt mit einigen Bereichen (A6:H17, A19:H30, usw.; keine Tabelle), welche auch immer gleich gestaltet sind, die ich chronologisch per Makro nach Datum sortieren möchte.
Leider weiß ich nicht wie ich die einzelnen Bereiche ansprechen kann bzw. wie ich die Zelle mit Datum mit dem restlichen Bereich verknüpfen kann, so dass sich der "gesamte Bereich" mit sortiert.
Hier der Link zur Datei: https://www.herber.de/bbs/user/98299.xlsm
Ich bin euch für jeden Rat / jede Lösung dankbar!
Vielen Dank im Voraus und viele Grüße!

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche abhängig vom Datum sortiern
19.06.2015 09:08:54
JoWE
Hallo Tim,
definiere jeweils Namen für Deine Bereiche.
Per Makro kannst Du Bereiche sortieren,
z.B. für einen benannten Bereich namens mBereich (Tabelle1!A6:H19) so:
Sub sortRange()
With Application.Range("mBereich")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Gruß
Jochen

Anzeige
AW: Bereiche abhängig vom Datum sortiern
19.06.2015 11:31:27
Tim
Hallo Jochen,
danke erstmal für deine Antwort. Problem ist wenn ich mehrere Bereiche ausgewählt habe und diese über das Makro sortieren möchte (nach Datum) erscheint eine Fehlermeldung das dies nicht möglich sei bei einer zusammenhängenden Mehrfachmarkierung.
Viele Grüße.

AW: Bereiche abhängig vom Datum sortiern
19.06.2015 12:32:26
JoWE
Hi Tim,
die einzeln benannten Bereiche (mBereich1, mBereich2, mBereich3 usw.) kannst Du in einem Makro sortieren lassen.
Sub sortRanges()
With Application.Range("mBereich1")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Application.Range("mBereich2")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Application.Range("mBereich3")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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