Sorteren op macro
Wilt u gegevens uit een VBA-programma sorteren? Bij interactief gebruik van Excel roep je de opdracht "Data - Sort" op, maar hoe doe je dat met een macro? De volgende afbeelding toont een ongesorteerde lijst:
Om een dergelijke lijst bijvoorbeeld op kolom B te sorteren, gebruikt u de volgende macro:
Subsorteerkolom Toenemend ()
Dim sorteerkolom As String
Dim gebied als string
Bereik = "A1: D28"
Sorteer kolom = "B"
ActiveSheet.Bereik .Sorteren _
Key1: = Bereik (sorteerkolom & "1"), Order1: = xlOplopend, _
Header: = xlGuess, MatchCase: = False, _
Oriëntatie: = xlTopToBottom
Einde sub
Wanneer u de macro start, wordt het bijbehorende celbereik geselecteerd in de tabel. Excel gebruikt als criterium de inhoud uit kolom B. De volgende afbeelding toont het resultaat:
Om de macro aan uw wensen aan te passen, definieert u de inhoud voor de variabelen "Gebied" en "Kolom sorteren". In de eerste variabele definieert u welk celbereik moet worden gesorteerd, met de tweede variabele bepaalt u welke kolom als criterium moet worden gebruikt.
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