Excel VBA is een krachtig en handig hulpmiddel om taken vrij snel in bulk uit te voeren. U kunt verschillende voorwaarden toepassen en op basis van de afzonderlijke voorwaarden verschillende resultaten afleiden via VBA. Soms wilt u controleren of een bepaald blad in uw werkmap bestaat. En zo niet, dan moet u dat blad misschien maken. In dit artikel laat ik u alle stappen zien om een blad toevoegen indien deze niet bestaat, met behulp van Excel VBA.

Excel VBA: Blad toevoegen als het niet bestaat (Een snel overzicht)

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Welk blad zoekt u?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Het blad '' & addSheetName & _ "'' heefttoegevoegd omdat het niet bestond.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "Het ''" & addSheetName & _ "''blad bestaat al in deze werkmap.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Invoegen in een nieuwe module om de bovenstaande code toe te passen.

Download Praktijk Werkboek

U kunt ons oefenwerkboek hier gratis downloaden!

Stappen om VBA-code toe te passen om blad toe te voegen in Excel als het niet bestaat

Stel, u hebt een werkmap met 4 werkbladen met de namen januari, februari, maart en april. Elk blad bevat het verkooprapport van de volgende maand. Nu moet u enkele bladen in de werkmap vinden en het blad toevoegen als het niet bestaat. U kunt de onderstaande stapsgewijze richtlijnen volgen om dit te bereiken.

Stap 1: Een nieuwe module invoegen

Eerst moet u een module invoegen om VBA-code te schrijven.

• Ga daarvoor helemaal aan het begin naar de Ontwikkelaar tab>> Visual Basic gereedschap.

• Als gevolg daarvan zijn de Microsoft Visual Basic voor toepassingen venster verschijnt.
• Ga vervolgens naar de Plaats tab>> Module gereedschap.

Dus, een nieuwe module met de naam Module1 is gemaakt.

Lees meer: Hoe blad met naam toevoegen in Excel VBA (6 eenvoudige manieren)

Vergelijkbare lezingen

• Nieuwe werkmap maken en opslaan met VBA in Excel
• Excel VBA: Een nieuwe werkmap maken en een naam geven (6 voorbeelden)
• Hoe maak je een nieuw blad van een sjabloon met behulp van Macro in Excel

Stap 2: De vereiste VBA-code schrijven en opslaan

Nu moet je de code in de module schrijven en opslaan.

• Om dit te doen, klikt u op de Module1 optie en schrijf de volgende code in het codevenster.

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Welk blad zoekt u?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Het blad '' & addSheetName & _ "'' heefttoegevoegd omdat het niet bestond.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "Het ''" & addSheetName & _ "''blad bestaat al in deze werkmap.", _ vbInformation, "Add Sheet If Not Exist" End If End  Sub 

• Het resultaat is dat het codevenster er als volgt uitziet.

🔎 Code Uitleg:

♣ Segment 1:

 Sub AddSheetIfNotExist() Dim addSheetName Als String Dim requiredSheetName Als String 

In dit deel hebben we de macronaam en de namen van de variabelen aangegeven.

♣ Segment 2:

 addSheetName = Application.InputBox("Welk blad zoekt u?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

In dit deel hebben we een invoerveld gemaakt. Via dit invoerveld kunnen we de naam van het bestand dat we moeten vinden invoeren.

♣ Segment 3:

 Als requiredSheetName = "" Dan Worksheets.Add.Name = addSheetName MsgBox "Het ''" & addSheetName & _ "'' blad is toegevoegd omdat het niet bestond.", _ vbInformation, "Add Sheet If Not Exist". 

In dit deel controleren we of het vereiste blad in de werkmap bestaat. Zo niet, dan wordt het vereiste blad aangemaakt en krijgen we een bericht over deze wijziging.

♣ Segment 4:

 Else MsgBox "Het ''" & addSheetName & _ "''blad bestaat al in deze werkmap.", _ vbInformation, "Blad toevoegen als het niet bestaat" End If End Sub 

In dit deel hebben we gewerkt met het resultaat als het vereiste blad al bestaat in de werkmap. In dit scenario verschijnt nog een berichtvenster met de mededeling dat dit blad bestaat. Verder beëindigen we in dit deel de code op de juiste manier.

• Druk daarna op Ctrl + S.

• Vervolgens werd een Microsoft Excel venster verschijnt. Klik op de Geen knop.

• Als gevolg daarvan zijn de Opslaan als venster verschijnt.
• Kies hierna de Opslaan als type: optie als .xlsm formaat. Klik vervolgens op de Sla knop.

U heeft dus de benodigde code geschreven en opgeslagen.

Let op:

U moet de Excel-werkmap opslaan in .xlsm Anders wordt de macro niet ingeschakeld en werkt de code niet.

Lees meer: Excel VBA om blad met variabele naam toe te voegen (5 ideale voorbeelden)

Stap 3: Voer de code uit.

Nu moet u de code uitvoeren en de resultaten controleren.

• Om dit te doen, klikt u eerst en vooral op de Ren pictogram in de Microsoft Visual Basic voor toepassingen raam.

• Als gevolg daarvan zijn de Macro's venster verschijnt.
• Kies vervolgens de AddSheetIfNotExist macro en klik op de Ren knop.

• Op dit moment heeft ons gemaakte berichtvenster met de naam Blad toevoegen indien niet bestaand zal verschijnen. Hier zou de automatische optie zijn Sheet5 .

• Nu, ter controle, schrijf "April" in het tekstvak en klik op de Ok knop.

• Vervolgens zou u zien dat een ander berichtvenster verschijnt met de mededeling dat het blad al bestaat.
• Klik op de Ok knop.

• Voer daarna de code opnieuw uit en schrijf "Mei" in het tekstvak van het aangemaakte berichtvak. Klik vervolgens op de OK knop.

• Als gevolg daarvan ziet u een ander berichtvenster dat u meedeelt dat de "Mei" blad niet bestond en dus maakte het dit blad.
• Vervolgens klikt u op de OK knop.

Tenslotte zie je dat je een blad hebt toegevoegd dat voorheen niet bestond. En de werkmap zou er nu zo uitzien.

Lees meer: Excel VBA: Blad toevoegen na laatste (3 ideale voorbeelden)

Conclusie

Dus, in dit artikel heb ik u alle stappen getoond om een blad toe te voegen als het niet bestaat met Excel VBA. Neem het volledige artikel zorgvuldig door om het beter te begrijpen en het gewenste resultaat te bereiken. Ik hoop dat u dit artikel nuttig en informatief vindt. Als u nog vragen of aanbevelingen heeft, neem dan gerust contact met mij op.

En, bezoek ExcelWIKI voor veel meer artikelen als deze. Dank u!