kann man diese alphabetisch sortieren (z.B. von Links nach rechts
aufsteigend)???
Danke für antwort
19. [VBA] Register sortieren
Sub BlätterSortieren()
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing
End Sub
Gruß Hajo
ich würde wie folgt arbeiten:
Mit Wert=Worsheets.count die Tabellen Blätter zählen
Dann per Schleife die Namen auslesen und in eine Exeltabelle eintragen.
Dort die Namen sortieren und dann die Tabellen in der Reihenfolge mit
Sheets("Tabelle1").Move After:=Sheets(Position) "sortieren".
Ist Position allerdings 1 (erster Tabellenname nach dem Sortieren), dann sollte hier
Sheets("Tabelle1").Move Before:=Sheets(Position) stehen, da dann diese Tabelle die erste ist.
Vielleicht hilft es
Gruß
bernd
(auch die Antwortzeit hat mich vom Stuhl gefegt)
danke.
Satze