Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter nach Datum sortieren

Forumthread: Tabellenblätter nach Datum sortieren

Tabellenblätter nach Datum sortieren
11.07.2021 09:38:28
Peter
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach Datum sortieren
11.07.2021 09:48:27
Peter
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

Anzeige
AW: Tabellenblätter nach Datum sortieren
11.07.2021 10:04:17
Hajo_Zi
Gut mein Code hat nicht gefalen und ist darum nicht in der Datei enthalten.
Ich schreibe nicht für den Paierkorb und bin darum raus.
Gruß Hajo
Anzeige
AW: Tabellenblätter nach Datum sortieren
11.07.2021 10:16:57
Svenja
Was heisst nicht gefallen?
Er hat nur nicht nach Datum sortiert...
AW: Tabellenblätter nach Datum sortieren
11.07.2021 10:18:37
Peter
Weißt Du eine bessere Lösung Svenja?
is so ne Sache mit den Namen :) owt
11.07.2021 10:41:17
ralf_b
Anzeige
AW: Tabellenblätter nach Datum sortieren
11.07.2021 11:39:42
Nepumuk
Hallo Peter,
teste mal:

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)
Gruß
Nepumuk
Anzeige
AW: Tabellenblätter nach Datum sortieren
11.07.2021 12:47:34
GerdL
Hallo,
wenn Blattnamen ohne Datum mit vorhanden sind u. auszuklammern.

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)
Gruß Gerd
Anzeige
Vielen Dank an Euch alle... Läuft owT
11.07.2021 13:15:40
Peter
Super vielen Dank an Euch alle.
Hat funktioniert. Die Lösung von Onur funktioniert einwandfrei.
Gerne !
11.07.2021 13:16:37
onur
Anzeige
AW: Gerne !
11.07.2021 14:02:50
Peter
Noch eine ergänzende Frage: Beim Anlagen des Tabellenblatts... kann man das direkt an seine richtige Stelle einsortieren?
AW: Gerne !
11.07.2021 14:10:41
onur
Lass einfach nach dem Erstellen des Blattes automatisch die Sub laufen.
AW: Gerne !
11.07.2021 14:15:33
Peter
Auch eine Möglichkeit :)
Hoffe bei 365 Blättern dauert das dann nicht so lange...:) Merci
Anzeige
AW: Gerne !
11.07.2021 14:19:19
onur
Wie denn sonst? Beim Erstellen eines neuen Blattes muss ja so oder so geprüft werden, wo genau es hin soll.
AW: Gerne !
11.07.2021 14:31:05
onur
Baue noch eine Überprüfung vor dem Verschieben in die vorletzte Zeile ein, dann geht es schneller.
If mi x Then Sheets(mi).Move Before:=Sheets(x)
AW: Gerne !
11.07.2021 14:15:16
onur
Das in Modul des Workbooks ("Diese Arbeitsmappe"):

Private Sub Workbook_NewSheet(ByVal Sh As Object)
SheetSort
End Sub

Anzeige
AW: Gerne !
11.07.2021 15:21:16
Peter
Alles erledigt - So habe ich es gemacht ;) Danke Onur... LG
;

Forumthreads zu verwandten Themen

Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Anzeige
Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Anzeige
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Sortieren nach Datum
Andreas

Hallo Forum,
ich habe eine Tabelle in der in Spalte A nur Datumswerte stehen, in B und C die dazugehörigen Aufgaben.
nun möchte ich das immer das nächste aktuelle datum in der ersten zeile steht.
ist ein Datum vorbei soll es sich ans Ende der Tabelle stellen.
Vielen Dank im vorr...
15.08.2009 18:58:53
Thread-ID: 1096168
3 Beiträge
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Tabellenblätter nach Datum durchsuchen
Markus

Hallo zusammen,
ich habe angefügte Datei erstellt.
Jetzt möchte ich das sich das Blatt "Tabelle1" aus den anderen Blättern mit Daten füllt.
Und zwar soll beispielsweise nach dem Datum in Tabelle1 in A4 in den anderen Blättern gesucht werden. Das Datum steht auf den anderen Blättern...
25.09.2009 10:24:50
Thread-ID: 1105395
2 Beiträge
Anzeige
sortieren nach datum
Andreas

Hallo Forum,
ich suche eine Möglichkeit eine Liste nach Datum (SpalteA)zu sortieren.
Dabei soll das nächste aktuelle Datum oben stehen. Die abgelaufenen sollen sich unten angliedern.
Vielen Dank im vorraus
13.10.2009 16:13:57
Thread-ID: 1109369
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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