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

Forumthread: Tabellenblätter nach Zahlen sortieren

Tabellenblätter nach Zahlen sortieren
13.07.2016 06:34:21
Mario
Guten Morgen,
ich habe ein kleines Problem. Ich möchte in meiner Mappe die Tabellenblätter nach Zahlen sortieren, aber ich finde nur eine alfabetische Sortiereung. Kann mir einer weiterhelfen.
Gruß
Mario

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach Zahlen sortieren
13.07.2016 06:45:11
Mario
Hallo Leute
ich habe noch was vergessen bei der Sortierung kommen auch Buchstaben und Zahlen vor.
Userbild
Gruß Mario

AW: Tabellenblätter nach Zahlen sortieren
13.07.2016 07:28:35
baschti007
Hey ich habe mal für dich gegooglet =D
Sub BlätterAufsteigendSortieren()
Dim intI As Integer, intJ As Integer
For intI = 1 To Sheets.Count
For intJ = 1 To Sheets.Count - 1
If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
Sheets(intJ).Move after:=Sheets(intJ + 1)
End If
Next
Next
End Sub

Anzeige
AW: Tabellenblätter nach Zahlen sortieren
13.07.2016 07:36:32
Mario
Hallo baschti007,
leider funktioniert die Variante nicht. Die ersten beiden Tabellenblätter sollen stehn bleiben und erst ab den Tabellenblatt mit den Zahlen soll er sortieren.
Gruß Mario

AW: Tabellenblätter nach Zahlen sortieren
13.07.2016 08:04:09
baschti007
Ja weil du da noch Buchstaben hat wird das schwer also würde ich das so machen wie es hier in dem Forum schon mal beschrieben wurde =D
'---- Alle Sheetnamen werden in Sheet(1) augelistet
Sub Liste_Sheets()
Dim i As Integer
Worksheets.Add before:=Sheets(1)
For i = 1 To Sheets.Count
Sheets(1).Cells(i, 1) = Sheets(i).Name
Next i
End Sub

'-- jetzt kannst du die namen in Sheet(1) Sortieren wie du magst und dann den nächsten Code starten und er sortiert es so wie in dem Sheet(1) angeordnet
Sub Sortieren_nach_Liste()
Dim i As Integer, wsh As Worksheet, B1 As String, B2 As String
Set wsh = Sheets(1)
For i = 2 To Sheets.Count
B1 = wsh.Cells(i - 1, 1).Value
B2 = wsh.Cells(i, 1).Value
Sheets(B2).Move after:=Sheets(B1)
Next i
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
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