• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Werkbladen met gedefinieerde namen importeren

Status
Niet open voor verdere reacties.
K

kloosterofobie

Gebruiker
Lid geworden
12 sep 2005
Berichten
126
Voor mij werk heb ik een wk poule gemaakt en nu is het moment om deze te gaan samenvoegen.

Gezien de grote respons zit ik op 80 aanmeldingen. Ik zag het niet zitten om deze stuk voor stuk te kopiëren dus Google bood uitkomst. Ik heb een macro gevonden en die werkt goed maar in mijn invulblad zitten een aantal gedefinieerde namen. en dan krijg ik onderstaande foutmelding.

foutmelding.png

Code: 
Sub Toevoegen()

    Dim Bestand As Variant

    Bestand = Application.GetOpenFilename("Excel Files (*.Xls), *.Xls", 2, "Open My Files", , True)

    For y = 1 To UBound(Bestand)
        Sheets.Add Type:=Bestand(y), After:=Sheets(Sheets.Count)
    Next
    
End Sub

Iemand een tip hoe ik snel de betreffende werkbladen in 1 bestand krijg.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan