Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1504to1508
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

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

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

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige