Combineer werkbladen met dezelfde naam uit meerdere werkboeken in één

Het samenvoegen van gegevens uit meerdere Excel-werkboeken in één enkel werkblad is een veelvoorkomende vereiste bij data-analyse, vooral bij het omgaan met geconsolideerde rapportage of gegevensaggregatie uit verschillende bronnen. Dit kan bijzonder uitdagend zijn wanneer je werkbladen moet combineren die dezelfde naam hebben in verschillende werkboeken. Deze handleiding leidt je door twee effectieve methoden om dit proces te stroomlijnen: het gebruik van VBA-code voor hen die een praktische, programmeerbare aanpak prefereren, en het gebruik van Kutools voor Excel voor gebruikers die op zoek zijn naar een meer gebruikersvriendelijke, geautomatiseerde oplossing.

• Combineer werkbladen met dezelfde naam in één met VBA-code
• Combineer eenvoudig werkbladen met dezelfde naam in één met Kutools voor Excel

Combineer werkbladen met dezelfde naam in één met VBA-code

Deze sectie biedt een VBA-code om werkbladen met dezelfde naam uit meerdere werkboeken samen te voegen in één. Volg de volgende stappen:

1. Druk op "Alt" + "F11" om de VBA-editor te openen.
2. Klik in de VBA-editor op "Invoegen" > "Module", en voer vervolgens de volgende VBA-code in de module in.
   VBA-code: Werkboeken samenvoegen met dezelfde naam in één

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   Opmerking: Voordat je de code uitvoert, moet je "SheetName" in de variabele "strSheetName" wijzigen naar de daadwerkelijke naam van de werkbladen die je wilt combineren.

   

3. Druk op "F5" om de code uit te voeren. Er verschijnt een venster "Selecteer de Excel-bestanden". Kies de werkboeken die de werkbladen met dezelfde naam bevatten die je wilt combineren en klik op de knop "Openen".

   

4. Nadat het samenvoegen is voltooid, verschijnt er een dialoogvenster "Microsoft Excel" om te bevestigen dat de werkbladen succesvol zijn gecombineerd. Klik op "OK" om het te sluiten.

   

Nu is de inhoud van alle werkbladen met dezelfde naam uit de geselecteerde werkboeken samengevoegd in één enkel werkblad in een nieuw werkboek.

Eenvoudig werkbladen met dezelfde naam in één combineren met Kutools voor Excel

Hoewel VBA krachtige automatisering mogelijkheden biedt in Excel, kan het complex en intimiderend zijn voor gebruikers zonder programmeervaardigheden. Bovendien vereist VBA zorgvuldige beveiligingsmaatregelen en kunnen er compatibiliteitsproblemen optreden. In tegenstelling tot VBA biedt "Kutools voor Excel" een meer gebruikersvriendelijke en veilige alternatief om het proces van het combineren van werkbladen uit meerdere werkboeken te vereenvoudigen, waardoor er geen complexe codering nodig is en de taak toegankelijk wordt voor alle Excel-gebruikers.

Na het installeren van Kutools voor Excel selecteert u "Kutools Plus" > "Samenvoegen" om de wizard "Werkbladen samenvoegen" te openen. Configureer vervolgens als volgt.

1. Selecteer in de wizard "Werkbladen samenvoegen – Stap 1 van 3" de optie "Gegevens samenvoegen vanuit meerdere werkmappen met dezelfde werkbladnaam" en klik op "Volgende".

   

2. Klik in de wizard "Stap 2 van 3" op de knop "Toevoegen" om de werkboeken te selecteren die de werkbladen met dezelfde naam bevatten die u wilt combineren.
   Opmerking: Als de werkboeken zijn opgeslagen in een map, kunt u op de pijl naast de knop "Toevoegen" klikken om het submenu uit te vouwen, en vervolgens "Map" selecteren om snel alle Excel-bestanden uit die map toe te voegen.

   

3. Nadat u de werkboeken hebt toegevoegd, hebt u twee opties afhankelijk van uw behoeften:
   • Als u alle werkbladen uit de geselecteerde werkboeken in één werkboek wilt combineren, klikt u gewoon op de knop "Volgende". Alle werkbladen worden gecombineerd en de inhoud van gelijknamige werkbladen wordt samengevoegd in één enkel werkblad.
   • Als u alleen de werkbladen met dezelfde naam wilt combineren, selecteert u eerst een werkblad in de sectie "Werkbladlijst", en klikt u vervolgens op de knop "Zelfde werkblad". Hierdoor worden automatisch alle werkbladen met dezelfde naam in de toegevoegde werkboeken geselecteerd. Klik daarna op "Volgende" om verder te gaan.

   

4. In de laatste stap van de wizard houdt u de standaardoptie geselecteerd of past u de instellingen naar wens aan, en klikt u op "Voltooien".

   

5. Kies een doelmap voor het gecombineerde werkboek, voer een bestandsnaam in zoals gewenst, en klik vervolgens op de knop "Opslaan" om de bewerking te voltooien.

   

Het combineren van werkbladen met dezelfde naam uit meerdere werkboeken kan efficiënt worden gedaan met de juiste tools. Of je nu ingebouwde methoden of geavanceerde invoegtoepassingen prefereert, beide benaderingen bieden betrouwbare oplossingen die geschikt zijn voor verschillende vaardigheidsniveaus. Het beheersen van deze technieken zal je productiviteit aanzienlijk vergroten en de gegevensconsolidatie in Excel stroomlijnen.

Als u meer wilt weten over deze functie, bekijk dan deze pagina: Gegevens samenvoegen vanuit meerdere werkmappen met dezelfde werkbladnaam.

Gerelateerde artikelen:

Hoe combineer je meerdere werkboeken in één werkboek in Excel?

Hoe voeg je werkbladen/werkboeken samen in één werkblad?

Hoe vat je gegevens samen vanuit werkbladen/werkboeken in één werkblad?