Note: The other languages of the website are Google-translated. Back to English

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


pijl blauw rechts bel 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

Opmerking:: 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:

doc meerdere bladen maken 1


pijl blauw rechts bel 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 Kutools 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 doc meerdere bladen maken 4 om de celwaarden te selecteren die u wilt gebruiken.

doc meerdere bladen maken 3

3. En klik vervolgens op Ok knop, zijn de werkbladen gemaakt met de namen van de celwaarden in een nieuwe werkmap, zie screenshot:

doc meerdere bladen maken 5

Klik op Download en probeer Kutools nu gratis uit voor Excel!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (14)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Betere versie. Hiermee wordt het aangemaakte blad verwijderd als er een ander blad met dezelfde naam bestaat. En invoervak ​​toegevoegd om handmatige codewijziging te vermijden om bereik te selecteren.


Sub AddSheetsFromCells()

Dim xRg als bereik, wBk als werkmap
Stel wBk = ActiveWorkbook in

Bij fout GoTo Quit
Set dbRange = Application.InputBox("Bereik:", "Selecteer bereik", _
Toepassing.Selectie.Adres, Type:=8)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Voor elke xRg in dbbereik
Met wBk
.Sheets.Add After:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
Als Err.Number = 1004 Dan
Debug.Print Chr (34) & xRg.Value & Chr (34) & " al gebruikt als bladnaam"
.ActiveSheet.Verwijderen
End If
On Error GoTo 0
Eindigt met
Volgende xRg

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Stoppen:

End Sub
GUEST
Deze opmerking is gemaakt door de moderator op de site
Dit lijkt geweldig te werken voor wat ik probeer te doen met één uitzondering ... Het maakt lege werkbladen ... Ik wil een kopie maken van een bestaand werkblad voor elke rij in een ander werkblad. Is dat überhaupt te doen?
Richard Pigford
Deze opmerking is gemaakt door de moderator op de site
Wat als ik wil dat op elk nieuw gemaakt blad een sjabloon wordt geplakt vanuit een sjabloonblad? De sjabloon zou alleen opmaak en formules hebben

Bedankt
Craig Dickeson
Deze opmerking is gemaakt door de moderator op de site
dit moet ik ook weten. ben je erachter gekomen?
prachi
Deze opmerking is gemaakt door de moderator op de site
Sub UpdateMAPs()
Dim LR zo lang, ik zo lang
Application.ScreenUpdating = False
Met bladen ("Teamlijst")
LR = .Bereik("E" & Rijen.Aantal).Einde(xlOmhoog).Rij
Voor i = 2 Naar LR
Spreadsheets ("Blanco KAART"). Kopieer voor:=Sheets ("Blanco KAART")
ActiveSheet.Name = .Bereik ("E" & i).Waarde
Volgende i
Eindigt met
Application.ScreenUpdating = True
End Sub

dit werkte voor mij van https://www.mrexcel.com/forum/excel-questions/553308-copy-worksheet-rename-cell-value.html
Steph
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig! Hartelijk bedankt!
Fred
Deze opmerking is gemaakt door de moderator op de site
dit is geweldig...... heel erg bedankt. Is er ergens een openbare opslagplaats voor vba-codes?
Josh
Deze opmerking is gemaakt door de moderator op de site
en het creëert veel bladen, zelfs als de lijst leeg is ... wat als ik bladen wil maken op basis van cellen die waarde hebben?
amin
Deze opmerking is gemaakt door de moderator op de site
Eerste keer met VBA-code in Excel. Werkte perfect bij de eerste poging. Bedankt voor het plaatsen van dit.
Nathan
Deze opmerking is gemaakt door de moderator op de site
Dit werkt geweldig, hoe zou je een sjabloon kunnen opnemen in elk gemaakt tabblad? dwz kopiëren en plakken van een sjabloon in elk nieuw gemaakt blad
Craig
Deze opmerking is gemaakt door de moderator op de site
Dit is een grote hulp. Ik zou zoveel tijd kunnen besparen. Heel erg bedankt voor je tijd en voor het helpen van je geweldige code.
Smitha
Deze opmerking is gemaakt door de moderator op de site
Ik heb geprobeerd de VBA-code te gebruiken, het maakt "naamloze" werkbladen, dus blad1, 2, 3 enzovoort, in plaats van de waarde in de cel te gebruiken als de naam van het blad. Ik heb geprobeerd dit op te lossen door het gegevenstype in de cel te wijzigen in tekst, hetzelfde probleem ...


ideeën?
WK
Deze opmerking is gemaakt door de moderator op de site
Ik had dit probleem. corrigeren: 1. slechts 31 tekens toegestaan ​​voor werkbladnamen 2. geen speciale tekens + = ( ) [ ] \ / , : etc... zoek en vervang door een spatie
Theresa
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het plaatsen van dit. Ik volgde de aanwijzingen en het werkte perfect.
Gastgebruiker
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties