Slik gir du tabellene en alfabetisk rekkefølge
Det er ikke noe problem å sortere data alfabetisk i listene dine. Men hvordan gjør du det når du vil sette regnearkene i alfabetisk rekkefølge i henhold til navnene deres?
Illustrasjonen nedenfor viser et arkregister med en serie regneark. De bør sorteres alfabetisk slik at de er lettere å finne.
3
Med noen få ark kan du på en pålitelig måte gjøre jobben manuelt. Med mange ark blir dette raskt vanskelig, tidkrevende og forvirrende. Følgende makro hjelper deg videre:
Sub SortBlaetter ()
Dim Zaehler1 As Integer, Zaehler2 As Integer
Dim navn som streng
Name = ActiveSheet.Name
For Zaehler1 = 1 Til regneark
For Zaehler2 = Zaehler1 Til regneark
If UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Then
Regneark (Zaehler2). Flytt før: = Regneark (Zaehler1)
Slutt om
Neste teller2, teller1
Regneark (navn). Aktiver
Slutt Sub
Makroen sorterer regnearkene i den aktive arbeidsboken i alfabetisk stigende rekkefølge. Følgende figur viser hvordan eksempelarbeidsboken ser ut etter at du har startet makroen:
Tips: Hvis du vil vite hvordan du skriver inn og starter makroer i Excel, finner du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
