Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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!

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

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.

Anzeige
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige