Tabellenblätter nach Datum sortieren

Hallo Forumsmitglieder,
eine Frage habe ich noch zu der Sortierung von Tabellenblättern. MEine Tabellenblätter werden in dem Format dd.mm.yyyy gespeichert.
Jetzt würde ich gerne, dass die Blätter nach Datum sortiert werden. Das Problem ist, dass die Sortierung dann nach Tagen geht...01.01.2021 01.02.2021 02.01.2021.. usw...
Ich würde gerne bei der Bennung von dd.mm.yyyy bleiben und diese nicht als yyyy.mm.dd umbauen.
Geht das und wenn ja, wie ?
2. Frage:
Kann man beim Erstellen eines neuen Blattes dieses bereits an die richtige Stelle einsortieren.
Ein Beispiel: 08.01.202 und 10.01.2021 sind vorhanden, 09.01.2021 wird nachträglich angelegt - das einsortieren zwischen den beiden vorhandenen wäre optimal.
VIelen Dank für Eure Hilfe vorab.
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke Hajo für deinen Beitrag, leider sortiert auch nur die dortige Beispielmappe nach Namen und nicht nach Datum:
Diesen Code verwende ich derzeit, nur leider wird dort halt in erster Linie nach den Tagen sortiert, was alle Blätter durcheinander wirft.


Sub Tabellen_Blaetter_Sortieren()
Dim rng As Range, arr
Dim i As Long
Application.ScreenUpdating = False
Application.StatusBar = "Sortiert: 0%"
'--- freien bereich im Tabellenblatt finden
Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Offset(0, 2).End(xlUp).Resize(ActiveWorkbook.Sheets.Count)
arr = rng.Value
'--- Tab-Namen in Tabelle schreiben
For i = 1 To ActiveWorkbook.Sheets.Count
arr(i, 1) = Sheets(i).Name
Next
rng.Value = arr
'--- Tab-Namen im Tabellenblatt sortieren
rng.Sort key1:=rng(1), order1:=xlAscending, Header:=xlNo
arr = rng.Value
'--- Tabellenblätter entsprechend der Sortierung anordnen
For i = 1 To UBound(arr, 1) - 1
Application.StatusBar = "Sortiert: " & Format(i / UBound(arr, 1), "0%")
If Sheets(arr(i, 1)).Index  i Then Sheets(arr(i, 1)).Move before:=Sheets(i + 1)
Next
Application.StatusBar = "Sortiert: 100%"
Sheets(rng(i).Value).Move after:=Sheets(i)
'--- Aufräumen
rng.ClearContents
rng.Parent.Select
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

Public Sub SortSheets() Dim lngIndex1 As Long, lngIndex2 As Long Application.ScreenUpdating = False For lngIndex1 = 1 To Sheets.Count - 1 For lngIndex2 = lngIndex1 + 1 To Sheets.Count If CDate(Sheets(lngIndex2).Name)

Public Sub Sort_Dated_Sheets() Dim lngIndex1 As Long, lngIndex2 As Long Application.ScreenUpdating = False For lngIndex1 = 1 To Sheets.Count - 1 For lngIndex2 = lngIndex1 + 1 To Sheets.Count If IsDate(Sheets(lngIndex2).Name) And IsDate(Sheets(lngIndex1).Name) Then If CDate(Sheets(lngIndex2).Name)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter nach Datum sortieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter nach Datum sortieren

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread