Inhaltsverzeichnis
Die folgende Routine sortiert die Blätter in einer Arbeitsmappe alphabetisch. Das Flag „Sort_Mode_Descending“ kann beliebig zwischen absteigend und aufsteigend umgeschaltet werden. Die Routine ist Groß-/Kleinschreibung INSENSITIVE.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets als IntegerOuter_Loop als Integer dimmenDim Inner_Loop als IntegerNo_of_Sheets = Sheets.Count'Markierung nach Bedarf ändernSort_Mode_Descending = FalseFor Outer_Loop = 1 To No_of_SheetsFor Inner_Loop = 1 To Outer_LoopWenn Sort_Mode_Descending = True ThenWenn UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) ThenSheets(Outer_Loop).Vorher verschieben:=Sheets(Inner_Loop)Ende WennEnde WennWenn Sort_Mode_Descending = False ThenWenn UCase(Sheets(Outer_Loop).Name) < UCase(Sheets(Inner_Loop).Name) ThenSheets(Outer_Loop).Vorher verschieben:=Sheets(Inner_Loop)Ende WennEnde WennNächster Inner_LoopNächster Outer_Loop |
Klicken Sie hier, um die .XLSM-Datei aus diesem Artikel herunterzuladen.
