Zo geef je je tabellen een alfabetische volgorde
Alfabetisch sorteren van gegevens in uw lijsten is geen probleem. Maar hoe pak je dat aan als je de werkbladen alfabetisch op naam wilt zetten?
De volgende afbeelding toont een bladregister met een reeks werkbladen. Ze moeten alfabetisch worden gesorteerd, zodat ze gemakkelijker te vinden zijn.
3
Met een paar vellen kunt u de klus betrouwbaar handmatig klaren. Met veel vellen wordt dit al snel moeilijk, tijdrovend en verwarrend. De volgende macro helpt je verder:
Sub SortBlaetter ()
Dim Zaehler1 als geheel getal, Zaehler2 als geheel getal
Naam dimmen als string
Naam = ActiveSheet.Naam
Voor Zaehler1 = 1 Naar werkbladen. Tellen
Voor Zaehler2 = Zaehler1 Naar werkbladen.Aantal
Als UCase (Werkbladen (Teller2) .Naam) <UCase (Werkbladen (Teller1) .Naam) Dan
Werkbladen (Zaehler2) .Verplaats voor: = Werkbladen (Zaehler1)
Stop als
Volgende teller2, teller1
Werkbladen (Naam) .Activeren
Einde sub
De macro sorteert de werkbladen in de actieve werkmap in alfabetisch oplopende volgorde. De volgende afbeelding laat zien hoe de voorbeeldwerkmap eruitziet nadat u de macro hebt gestart:
Tip: Als u wilt weten hoe u macro's in Excel invoert en start, vindt u hier een korte beschrijving: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
