Så här ger du dina tabeller en alfabetisk ordning
Att sortera data alfabetiskt i dina listor är inga problem. Men hur går du tillväga när du vill lägga kalkylbladen i alfabetisk ordning efter deras namn?
Följande illustration visar ett arkregister med en serie kalkylblad. De bör sorteras alfabetiskt så att de är lättare att hitta.
3
Med några ark kan du göra jobbet manuellt. Med många ark blir detta snabbt svårt, tidskrävande och förvirrande. Följande makro hjälper dig ytterligare:
Sub SortBlaetter ()
Dim Zaehler1 Som heltal, Zaehler2 Som heltal
Dim namn som sträng
Namn = ActiveSheet.Name
För Zaehler1 = 1 Till kalkylblad
För Zaehler2 = Zaehler1 Till arbetsblad
Om UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Then
Arbetsblad (Zaehler2). Flytta tidigare: = Arbetsblad (Zaehler1)
Avsluta om
Nästa räknare2, räknare1
Arbetsblad (namn) .Aktivera
Avsluta Sub
Makrot sorterar kalkylbladen i den aktiva arbetsboken i alfabetiskt stigande ordning. Följande bild visar hur exempelarbetsboken ser ut efter att du har startat makrot:
Tips: Om du vill veta hur du anger och startar makron i Excel hittar du en kort beskrivning här: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- i-excel-ein.html
