Verschillende tabbladen combineren tot 1 blad

[TotalBB]

Ik heb een Excel-bestand dat bestaat uit 55 tabs. Nu wil ik al die tabs onder elkaar zetten op 1 blad. Kan dat op een snelle manier?
Ik werk overigens met Excel 2007.

 

[Roncancio]

Dim wb As Worksheet
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    For Each wb In Worksheets
        Worksheets(Worksheets.Count).Range("A" & wb.Index).Value = wb.Name
    Next

Met vriendelijke groet,


Roncancio

 

[TotalBB]

Bedankt voor je reactie, maar het is me niet helemaal duidelijk. Waar moet ik dit precies invoeren? Ik ben nogal een leek op dit gebied, dus mijn excuses als dit erg dom overkomt.

 

[Roncancio]

Bedankt voor je reactie, maar het is me niet helemaal duidelijk. Waar moet ik dit precies invoeren? Ik ben nogal een leek op dit gebied, dus mijn excuses als dit erg dom overkomt.

Nee hoor, dat valt wel mee.

- Ga naar Extra - Macro - Visual Basic Editor
- Ga vervolgens naar Invoegen - Module
- Kopieer onderstaande code

Sub Werkbladen()
Dim wb As Worksheet
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    For Each wb In Worksheets
        Worksheets(Worksheets.Count).Range("A" & wb.Index).Value = wb.Name
    Next
End Sub

Je kunt de macro nu starten door op F5 te klikken.
Vanuit Excel start je de macro via Extra - Macro - Macro's.
De macro heet Werkbladen

Met vriendelijke groet,


Roncancio

 

[TotalBB]

Bedankt weer! Ik heb dit geprobeerd en nu heb ik een extra sheet met de titels van de tabbladen onder elkaar in een kolom. Wat is dus eigenlijk wil is de inhoud van de tabbladen onder elkaar zetten.

Misschien moet ik even uitleggen wat ik ermee wil doen. Het betreffende Excel-bestand is een audioscript dat ik moet vertalen. Elk personage heeft zijn eigen tabblad, waarop al zijn of haar dialogen staan. Ik werk met een CAT-tool, waarin ik dus de dialogen van alle tabs wil invoeren. Meestal bestaat zo'n script maar uit een paar tabs, zodat ik de te vertalen kolommen gewoon onder elkaar plak in een nieuw bestand. Dat voer ik vervolgens in de CAT-tool in als de brontekst. Nu zijn er echter 55 tabs, dus knippen en plakken is een erg tijdrovend karwei. Wat ik dus wil weten is of er een snellere manier is om de inhoud van alle tabs te combineren tot 1 sheet.

Hopelijk is het duidelijk, anders hoor ik het graag. Nogmaals dank.

 

[Roncancio]

Oké.

Onderstaande code is vrijwel identiek an de voorgaande maar dit keer wordt de inhoud (ipv de naam) van elk werkblad in het nieuwe werkblad geplaatst.

Sub Werkbladen()
Dim wb As Worksheet
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    For Each wb In Worksheets
        If wb.Index < Worksheets.Count Then
            LR = Worksheets(Worksheets.Count).Range("A65536").End(xlUp).Row
            wb.UsedRange.Copy Destination:=Worksheets(Worksheets.Count).Range("A" & LR + 1)
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[TotalBB]

Gelukt, precies wat ik wilde! Heel erg bedankt.:thumb:

 

[Wigi]

Graag dan nog eens de vraag op opgelost zetten aub