Inhoudsopgave
De volgende routine sorteert de bladen in een werkmap alfabetisch. De vlag "Sort_Mode_Descending" kan naar wens worden geschakeld tussen aflopend en oplopend. De routine is geval INSENSITIVE.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets als geheel getalDim Outer_Loop als geheel getalDim Inner_Loop als geheel getalNo_of_Sheets = Sheets.Count'Vlag wijzigen indien van toepassing'Sort_Mode_Descending = FalseVoor Outer_Loop = 1 To No_of_SheetsVoor Inner_Loop = 1 Naar Outer_LoopAls Sort_Mode_Descending = True DanAls UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) DanBladen (Outer_Loop). Verplaatsen voor: = Bladen (Inner_Loop)Stop alsStop alsAls Sort_Mode_Descending = False DanAls UCase(Sheets(Outer_Loop).Name) <UCase(Sheets(Inner_Loop).Name) DanBladen (Outer_Loop). Verplaatsen voor: = Bladen (Inner_Loop)Stop alsStop alsVolgende Inner_LoopVolgende Outer_Loop |
Klik hier om het .XLSM-bestand uit dit artikel te downloaden.
