Sådan giver du dine tabeller en alfabetisk rækkefølge
Det er ikke noget problem at sortere data alfabetisk på dine lister. Men hvordan gør du det, når du vil placere regnearkene i alfabetisk rækkefølge efter deres navne?
Den følgende illustration viser et arkregister med en række regneark. De skal sorteres alfabetisk, så de er lettere at finde.
3
Med et par ark kan du pålideligt udføre jobbet manuelt. Med mange ark bliver dette hurtigt svært, tidskrævende og forvirrende. Følgende makro hjælper dig yderligere:
Sub SortBlaetter ()
Dim Zaehler1 som heltal, Zaehler2 som heltal
Dim navn som streng
Name = ActiveSheet.Name
For Zaehler1 = 1 Til regneark.Tæll
For Zaehler2 = Zaehler1 Til regneark.Tælling
Hvis UCase (regneark (tæller2) .navn) <UCase (regneark (tæller1) .navn) derefter
Arbejdsark (Zaehler2). Flyt før: = Regneark (Zaehler1)
Afslut Hvis
Næste tæller2, tæller1
Regneark (navn) .Aktiver
Afslut Sub
Makroen sorterer regnearkene i den aktive projektmappe i alfabetisk stigende rækkefølge. Følgende figur viser, hvordan eksemplet på projektmappen ser ud, når du har startet makroen:
Tip: Hvis du gerne vil vide, hvordan du indtaster og starter makroer i Excel, finder du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html