Hoe telt u het aantal werkbladen met een specifieke naam in Excel?
Hebt u ooit geprobeerd het aantal werkbladen in een Excel-werkboek te tellen op basis van specifieke naamgevingscriteria? Denk bijvoorbeeld aan werkbladen waarvan de naam begint met of een bepaald woord bevat, zoals „KTE”. In deze handleiding leert u hoe u met VBA-code en de krachtige functies van Kutools voor Excel eenvoudig werkbladen kunt tellen en filteren die aan uw eisen voldoen.
Werkbladen met een specifieke naam tellen met VBA-code
Snel alle werkbladen vinden waarin een specifiek woord voorkomt in de bladnaam
Werkbladen met een specifieke naam tellen met VBA-code
De volgende VBA-codes helpen u het aantal werkbladen met een specifieke naam in een werkmap te tellen. Volg hiervoor de onderstaande stappen.
1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het codovenster.
VBA-code 1: Werkbladen tellen waarvan de naam begint met „KTE”
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub2. Als u het aantal werkbladen wilt tellen dat „KTE” bevat, past u de onderstaande VBA-code toe.
VBA-code 2: Werkbladen tellen waarvan de naam „KTE” bevat
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End SubOpmerking: Vervang het woord „KTE” door de tekst waarmee u het aantal werkbladen wilt tellen.
3. Druk op de toets F5 om de code uit te voeren. Er verschijnt dan een dialoogvenster met het aantal werkbladen in het huidige werkboek waarvan de naam begint met „KTE” of „KTE” bevat. Zie de schermafbeeldingen:
Aantal werkbladen waarvan de naam begint met „KTE”:
Aantal werkbladen waarvan de naam „KTE” bevat:
Snel alle werkbladen vinden waarin een specifiek woord voorkomt in de bladnaam
In dit gedeelte leest u hoe u met Kutools voor Excel snel alle werkbladen kunt vinden waarin een specifiek woord voorkomt in de bladnaam.
1. Na installatie van Kutools voor Excel wordt het navigatiedeelvenster van Kutools Navigatie automatisch geopend aan de linkerkant van de werkmap. U kunt het deelvenster ook handmatig inschakelen door op Kutools > Navigatie te klikken, zoals op de onderstaande afbeelding is weergegeven.
2. Schakel in het gedeelte Werkmap en Blad van de Navigatie het selectievakje Filter in en voer de specifieke werkbladnaam in waarmee u werkbladen wilt zoeken. Alle werkbladen waarvan de naam het opgegeven woord bevat, worden gefilterd en weergegeven in het vak Werkbladlijst. Zie de schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Gerelateerde artikelen:
- Hoe verwijst u naar de tabnaam in een cel in Excel?
- Hoe koppelt u de waarde van een cel aan de naam van een werkbladtab, of omgekeerd, in Excel?
- Hoe opent u een specifiek werkblad op basis van de geselecteerde waarde in een keuzelijst (Combo Box) in Excel?
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