Hoe maak ik meerdere werkbladen uit een lijst met celwaarden?
Zijn er snelle of eenvoudige methoden om meerdere werkbladen te maken op basis van een lijst met celwaarden in Excel? In dit artikel zal ik het hebben over enkele goede trucs om deze klus op te lossen.
Maak meerdere werkbladen uit een lijst met celwaarden met VBA-code
Maak meerdere werkbladen uit een lijst met celwaarden met Kutools voor Excel
Maak meerdere werkbladen uit een lijst met celwaarden met VBA-code
Om snel meerdere nieuwe werkbladen te maken met een lijst met celwaarden, kan de volgende VBA-code u helpen.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: maak meerdere werkbladen uit 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
Note: In de bovenstaande code, A1: A7 is het celbereik waarop u bladen wilt maken, wijzig dit alstublieft naar uw behoefte.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en de nieuwe bladen zijn gemaakt nadat alle bladen in de huidige werkmap zijn gemaakt, zie screenshot:
Maak meerdere werkbladen uit een lijst met celwaarden met Kutools voor Excel
Als u niet bedreven bent met de bovenstaande code, is hier een handig hulpmiddel:Kutools for Excel, Met Maak reekswerkbladen functie, worden de werkbladen gemaakt op basis van de celwaarden in een nieuwe werkmap.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Klikken Koetools Plus > Werkblad > Maak reekswerkbladen, zie screenshot:
2. In de Maak reekswerkbladen dialoog venster:
(1.) Selecteer een werkblad waarop u reekswerkbladen wilt maken op basis van;
(2.) Selecteer vervolgens Data in een bereikoptie van de Bladnamen gebaseerd op keuzelijst en klik op om de celwaarden te selecteren die u wilt gebruiken.
3. En klik vervolgens op Ok knop, zijn de werkbladen gemaakt met de namen van de celwaarden in een nieuwe werkmap, zie screenshot:
Klik op Download en probeer Kutools nu gratis uit voor Excel!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!