Hoe u nieuwe bladen in excel kunt toevoegen met vba

U kunt de volgende methoden in VBA gebruiken om nieuwe werkbladen aan een Excel-werkmap toe te voegen:

Methode 1: Voeg een nieuw blad toe

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Deze macro voegt een nieuw blad toe aan de werkmap met een automatisch gegenereerde naam die het bladnummer beschrijft dat het in de werkmap vertegenwoordigt.

Als de werkmap bijvoorbeeld drie bladen bevat en u deze macro uitvoert, wordt er een nieuw blad met de naam Blad4 gemaakt.

Opmerking : standaard voegt VBA het nieuwe blad onmiddellijk vóór het momenteel actieve blad toe.

Methode 2: Meerdere nieuwe bladen toevoegen

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Deze macro voegt drie nieuwe bladen toe aan de werkmap.

Methode 3: Voeg een nieuw blad met een naam toe

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Deze macro voegt een nieuw blad toe aan de werkmap met de naam MyNewSheet .

Methode 4: Voeg een nieuw blad met een naam toe vóór een specifiek blad

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Deze macro voegt een nieuw blad toe aan de werkmap met de naam MyNewSheet, net vóór het bestaande blad met de naam Teams .

Methode 5: Voeg een nieuw blad toe met een naam na een specifiek blad

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Deze macro voegt direct na het bestaande blad Teams een nieuw blad toe aan de werkmap met de naam MyNewSheet .

Methode 6: Voeg een nieuw blad met een naam toe aan het einde van de werkmap

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Deze macro voegt helemaal aan het einde van de werkmap een nieuw blad toe aan de werkmap met de naam MyNewSheet .

Methode 7: Voeg een nieuw blad met een naam toe aan het begin van de werkmap

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Deze macro voegt helemaal aan het begin van de werkmap een nieuw blad toe aan de werkmap met de naam MyNewSheet .

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met de volgende Excel-werkmap met drie bestaande werkbladen:

Voorbeeld 1: Voeg een nieuw blad toe

We kunnen de volgende macro maken om een nieuw blad aan de werkmap toe te voegen met een automatisch gegenereerde naam:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Wanneer we deze macro uitvoeren, wordt er een nieuw blad aan de werkmap toegevoegd met de naam Sheet4, net vóór het Teams- blad, dat we hadden geselecteerd bij het uitvoeren van de macro:

Voorbeeld 2: Meerdere nieuwe bladen toevoegen

We kunnen de volgende macro maken om drie nieuwe bladen aan de werkmap toe te voegen met automatisch gegenereerde namen:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Wanneer we deze macro uitvoeren, worden er drie nieuwe bladen aan de werkmap toegevoegd direct vóór het Teams- blad, dat we hadden geselecteerd bij het uitvoeren van de macro:

Voorbeeld 3: Voeg een nieuw blad toe met een naam

We kunnen de volgende macro maken om een nieuw blad met een specifieke naam aan de werkmap toe te voegen:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Wanneer we deze macro uitvoeren, wordt een nieuw blad met de naam MyNewSheet aan de werkmap toegevoegd net vóór het Teams- blad, dat we hadden geselecteerd bij het uitvoeren van de macro:

Voorbeeld 4: Voeg een nieuw blad met een naam toe vóór een specifiek blad

We kunnen de volgende macro maken om een nieuw blad direct vóór een specifiek bestaand blad aan de werkmap toe te voegen:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Wanneer we deze macro uitvoeren, wordt een nieuw blad met de naam MyNewSheet direct vóór het Teams- blad aan de werkmap toegevoegd:

Voorbeeld 5: Voeg een nieuw blad toe met een naam na een specifiek blad

We kunnen de volgende macro maken om direct na een specifiek bestaand blad een nieuw blad aan de werkmap toe te voegen:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Wanneer we deze macro uitvoeren, wordt direct na het Teams- blad een nieuw blad met de naam MyNewSheet aan de werkmap toegevoegd:

Voorbeeld 6: Voeg een nieuw blad met een naam toe aan het einde van de werkmap

We kunnen de volgende macro maken om een nieuw blad helemaal aan het einde van de werkmap toe te voegen:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Wanneer we deze macro uitvoeren, wordt helemaal aan het einde van de werkmap een nieuw blad met de naam MyNewSheet toegevoegd:

Voorbeeld 7: Voeg een nieuw blad met een naam toe aan het begin van de werkmap

We kunnen de volgende macro maken om een nieuw blad helemaal aan het begin van de werkmap toe te voegen:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Wanneer we deze macro uitvoeren, wordt helemaal aan het begin van de werkmap een nieuw blad met de naam MyNewSheet toegevoegd:

Let op : U kunt hier de volledige documentatie voor de Sheets.Add- methode vinden.

Aanvullende bronnen

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

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: Hoe de laatst gebruikte kolom te vinden
VBA: het aantal vellen in een werkmap tellen