Hoe maak je werkbladen met een reeks op basis van een celbereik in Excel?
Als u een gegevensbereik in uw werkblad hebt en nu een reeks werkbladen wilt maken op basis van de celgegevens, zie dan de volgende schermafbeelding. Uiteraard kunt u de werkbladnamen handmatig één voor één wijzigen, maar wanneer u meerdere werkbladnamen moet aanpassen, is deze methode omslachtig en tijdrovend. Hieronder bespreek ik enkele snelle trucs om u daarbij te helpen.
Werkbladen met reeks maken vanuit lijst met cellen met VBA-code
Werkbladen met reeks maken vanuit lijst met cellen met Kutools voor Excel
Werkbladen met reeks maken vanuit lijst met cellen met VBA-code
Met de volgende VBA-code voegt u werkbladen toe die zijn genoemd naar de inhoud van de cellen, direct na het bestaande werkblad. Volg deze stappen:
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 Modulevenster.
VBA-code: voeg achtereenvolgende werkbladen toe op basis van lijst met cellen
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u het gewenste bereik kunt selecteren. Zie schermafbeelding:
4. Klik daarna op OK. De werkbladen met de namen van de celwaarden worden dan toegevoegd na het bestaande werkblad. Zie schermafbeelding:
Opmerkingen:
1. Het nieuwe werkblad wordt ingevoegd na het huidige werkblad.
2. Als het geselecteerde bereik lege cellen bevat, krijgen de werkbladen standaardnamen. Zie de schermafbeeldingen:
 |
 |
 |
Werkbladen met reeks maken vanuit lijst met cellen met Kutools voor Excel
Hier introduceer ik een handige tool: Kutools voor Excel, waarmee u met de functie Werkbladen met reeks maken snel werkbladen kunt genereren op basis van maandnamen, weekdagnamen, aangepaste lijsten enzovoort.
Kutools voor Excel bevat meer dan 300 handige Excel-tools. Probeer het 30 dagen lang gratis en zonder beperkingen.Download nu.
Na installatie van Kutools voor Excel voert u de volgende stappen uit:
1. Selecteer het bereik dat u als basis voor de werkbladen wilt gebruiken.
2. Klik op KUTOOLS PLUS > Werkblad > Werkbladen met reeks maken. Zie schermafbeelding:
3. In het dialoogvenster Werkbladen met reeks maken kiest u het type werkblad dat u wilt gebruiken voor de nieuwe reeks werkbladen en vinkt u de optie Gegevens binnen selectie aan. Zie schermafbeelding:
4. Klik vervolgens op OK om het dialoogvenster te sluiten. Er is nu een nieuw werkblad gemaakt met werkbladen die zijn genoemd naar de gegevens uit Bereik selecterenZie de schermafbeelding:
Opmerkingen:
1. Als u Blad 1 of Blad 2 kiest, krijgt het aangemaakte nieuwe werkblad dezelfde opmaak als Blad 1 of Blad 2.
2. Het aangemaakte nieuwe werkblad bevindt zich in een nieuw werkblad.
3. Als het geselecteerde bereik lege cellen bevat, krijgen de werkbladen standaardnamen. Zie de schermafbeeldingen:
 |
|
 |
Klik hier voor meer informatie over deze functie om werkbladen met een reeks te maken.
Gerelateerd artikel:
Hoe voegt u Nieuw werkblad toe met aangepaste namen 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