Blätter absteigend sortieren
30.03.2007 07:33:06
dreho
das folgende Makro sortiert meine Blätter in der Mappe bestens.
Aber leider Auf- statt Absteigend.
Ist das möglich, dass meine 31 Journale absteigend sortiert werden.
Journal_070329, Journal_070328 ... Journal_070301
Danke für Antwort
dreho alias Markus
Sub BlaetterSortieren()
Dim iMax As Integer
Dim Ibl As Integer
Dim ibl2 As Integer
Application.ScreenUpdating = False
iMax = ThisWorkbook.Sheets.Count
For Ibl = 1 To iMax
For ibl2 = Ibl To iMax
If UCase(Sheets(ibl2).Name) _
Anzeige