Mit nachfolgendem Code sortiere ich die Tabellenblätter in einem Workbook. Nach meinem Verständnis funktioniert das nur, wenn der Workbook nicht ausgeblendet ist.
Gibt es eine Möglichkeit, die Sortierung vorzunehmen, ohne dass der Workbook (ich meine nicht nur einzelne Worksheets) eingeblendet wird?
Gruss, Peter
Sub Tabellenblaetter_sortieren()
Dim i As Long, x As Long, AnzahlRegister As Long, Zaehler As Long
Application.ScreenUpdating = False
With ThisWorkbook
AnzahlRegister = .Sheets.Count
For i = 1 To AnzahlRegister - 1
x = i
For Zaehler = i + 1 To AnzahlRegister
If UCase$(.Sheets(Zaehler).Name) i Then .Worksheets(x).Move .Worksheets(i)
Next i
End With
Application.ScreenUpdating = True
End Sub