Vba: controleren of een blad bestaat (met voorbeeld)

U kunt de volgende functie in VBA maken om te controleren of een bepaald blad bestaat in de momenteel actieve Excel-werkmap:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

Deze functie retourneert TRUE of FALSE om aan te geven of een bepaalde bladnaam al dan niet bestaat in de momenteel actieve Excel-werkmap.

Merk op dat deze functie eenvoudigweg controleert of het indexnummer van een blad groter is dan 0.

Als het blad bestaat, heeft het bladindexnummer minimaal de waarde 1 , waardoor de functie de waarde TRUE retourneert.

Het volgende voorbeeld laat zien hoe u deze functie in de praktijk kunt gebruiken.

Voorbeeld: Gebruik VBA om te controleren of het blad bestaat

Stel dat we de volgende Excel-werkmap hebben met drie bladen:

We kunnen de volgende functie in VBA maken om te controleren of een bepaalde bladnaam in deze werkmap voorkomt:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

We kunnen vervolgens de volgende formule in cel A1 van het momenteel actieve blad typen om te controleren of de bladnaam „Teams“ in deze werkmap voorkomt:

 =sheetExists("Teams")

De volgende schermafbeelding laat zien hoe u deze formule in de praktijk kunt gebruiken:

De functie retourneert WAAR omdat deze bladnaam in de werkmap bestaat.

Houd er ook rekening mee dat deze functie niet hoofdlettergevoelig is.

Als we bijvoorbeeld controleren of de bladnaam “teams” bestaat, retourneert de functie ook TRUE :

Stel echter dat we controleren of de bladnaam “coaches” bestaat:

De functie retourneert FALSE omdat deze bladnaam niet bestaat in de werkmap.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: het aantal vellen in een werkmap tellen
VBA: gegevens uit een andere werkmap extraheren
VBA: hoe u meerdere regels invoegt