Office: Sheets sortieren

Hallo Leute ich könnte mal eure Hilfe gebrauchen BITTE
Ist es möglich mehrer Tabellenblätter mit Hilfe eines Makro's nummerisch oder alphabetisch zu sortieren? Wenn ja wäre es nett mir eine Möglichkeit aufzuzeigen.
Danke ein Hilfesuchender

 

Hallo!

Natürlich ist das möglich, aber was willst du jetzt genau?
ALLE Blätter oder nur EINIGE Blätter?
NUMMERISCH oder ALPHAnummerisch?

Je besser die Infos, desto besser der Rest...

 

Hallo Schatzi,

Danke für die schnelle Antwort.
Zur Zeit benötige ich nur einige Blätter, d.h. die ersten 5 Blätter sollten am Anfang stehen bleiben und der Rest (die Anzahl [könnte bis zu 25 werden]ändert sich von Zeit zu Zeit, es werden nicht mehr benötigte gelöscht bzw. es kommen neue dazu). Die Blätter die sortiert werden sollen haben einen nummerischen Namen.

Danke

 

Hallo!

Ich habe diesen Code gefunden und für deine Bedingungen angepasst.
Kannst ja mal testen.

Code:

Sub BlaetterSortieren()
Dim fertig As Boolean, i As Integer
Do
    fertig = True
    For i = 6 To Sheets.Count - 1
        If CDbl(Sheets(i).Name) > CDbl(Sheets(i + 1).Name) Then
            Sheets(i + 1).Move Before:=Sheets(i)
            fertig = False
        End If
    Next i
Loop Until fertig
End Sub

 

Hallo Schatzi,

klappt super, wenn ich richtig nachgedacht hätte.
Entschuldigung für meinen Fehler, ich habe geschrieben das die Blätter rein nummerisch sind, als ich es aber ausprobiert habe ist es mir aufgefallen. Es kann vorkommen das wenn beim einfügen eines Blattes der Name schon existiert eine Erweiterung "(2)" usw. , also so als würde ich es kopieren, angehängt wird.
Ich würde es ja auch ändern, aber es gibt leider hier von anderen Benutzern klare Vorgaben.
Vielleicht kannst du mir auch für hier eine Lösung geben.

Aber trotzdem schon mal tausend Dank für die bisher geleistet Hilfe

 

Hallo!

Dann versuch's mal, indem du jeweils das "CDbl" weglässt.

 

Hallo Schatzi,
nochmals Danke für die Hilfe, hat bisher alles hervorragend funktioniert.
:-D