neue dazukommen.
kann man diese alphabetisch sortieren (z.B. von Links nach rechts
aufsteigend)???
Danke für antwort
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