Hoe sorteer je alle tabbladen op basis van een celwaarde in Excel?
Wanneer u een Excel-bestand gebruikt, sorteert u de werkbladen meestal alfabetisch, numeriek of op tabbladkleur – maar heeft u ooit geprobeerd de bladtabs te sorteren op basis van een specifieke celwaarde?
Stel dat u een werkmap hebt met tientallen werkbladen, waarbij elke cel A1 een specifieke waarde bevat. U wilt al deze werkbladen oplopend sorteren op basis van de waarde in cel A1 van elk werkblad. In dit artikel vindt u de oplossing.
Sorteer alle werkbladen op basis van een celwaarde met VBA-code
Sorteer alle werkbladen op basis van een celwaarde met VBA-code
Er is geen directe manier om alle werkbladen in Excel op basis van een celwaarde te sorteren, maar met de volgende VBA-code lukt het u wel.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Sorteer alle bladen op basis van een celwaarde
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Nadat u de code hebt geplakt, drukt u op de toets F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd een cel te selecteren waaraan de bladen moeten worden gesorteerd; zie de schermafbeelding:
4. Nu ziet u dat alle werkbladen oplopend zijn gesorteerd op basis van de tekstwaarde in cel A1 van elk werkblad.
Opmerkingen:
1. Als uw geselecteerde cellen zowel getallen als tekststrings bevatten, worden de bladen met getallen vóór die met tekststrings gesorteerd.
2. Als cel A1 leeg is, wordt het bijbehorende werkblad vooraan in de lijst van alle bladen geplaatst.
Gerelateerde artikelen:
Hoe sorteert u werkbladen in alfabetische of alfanumerieke volgorde in Excel?
Hoe sorteert u werkbladtabbladen op kleur in Excel?
Hoe keert u de volgorde van de werkbladtabbladen om?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins