Hoe maakt u meerdere werkbladen op basis van een lijst met celwaarden?
Zijn er snelle en eenvoudige manieren om meerdere werkbladen te maken op basis van een lijst met celwaarden in Excel? In dit artikel bespreek ik een paar handige trucs om deze taak vlot uit te voeren.
Meerdere werkbladen maken vanuit een lijst met celwaarden met VBA-code
Meerdere werkbladen maken vanuit een lijst met celwaarden met Kutools voor Excel
Meerdere werkbladen maken vanuit een lijst met celwaarden met VBA-code
Om snel meerdere nieuwe werkbladen te maken die zijn genoemd naar een lijst met celwaarden, kunt u de volgende VBA-code gebruiken.
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 Module-venster.
VBA-code: meerdere werkbladen maken vanuit een lijst met cellen:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Opmerking: In de bovenstaande code is A1:A7 het celbereik waarop u werkbladen wilt baseren; pas dit naar wens aan.
3. Druk vervolgens op de toets F5 om deze code uit te voeren. De nieuwe werkbladen zijn nu aangemaakt na alle bestaande werkbladen in het huidige werkboek; zie de schermafbeelding:
Meerdere werkbladen maken vanuit een lijst met celwaarden met Kutools voor Excel
Als u niet bekend bent met bovenstaande code, is hier een handige tool: Kutools voor Excel. Met de functie Werkbladen met reeks maken worden werkbladen automatisch aangemaakt op basis van de celwaarden in een nieuw werkblad.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkblad > Werkbladen met reeks maken; zie de schermafbeelding:
2. In het dialoogvenster Werkbladen met reeks maken:
(1.) Selecteer één werkblad waarop u Werkbladen met reeks maken wilt baseren;
(2.) Selecteer vervolgens de optie Gegevens in een bereik uit het keuzelijstvak Werkbladnaam gebaseerd op, en klik op de knop 
om de celwaarden te selecteren die u wilt gebruiken.
3. Klik daarna op de knop OK; de werkbladen zijn nu aangemaakt met de namen van de celwaarden in een nieuw werkblad; zie de schermafbeelding:
Klik hier om Kutools voor Excel nu gratis te downloaden en uit te proberen!
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