• 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.

Sheets kopiëren naar ander bestand, zonder workbook namen

Status
Niet open voor verdere reacties.

reneemettrie

Terugkerende gebruiker
Lid geworden
1 aug 2006
Berichten
1.281
Ik wil één of meerdere excel sheets kopiëren naar een andere excel file, zonder al de namen gedefinieerd in de oorspronkelijk file mee te nemen. Is dat mogelijk?
 
Misschien Kopiëren en dan alleen waarden plakken. Maar dan neem je de opmaak ook niet mee.

Nog niet geprobeerd...
 
Is bij mijn weten niet mogelijk, maar namen verwijderen kan natuurlijk wel.
Als het een eenmalige actie is:
Kies "Formules","Namen beheren"
Bovenste naam is reeds geselecteerd
Scroll naar beneden en Shift-Klik op laatste naam.
Klik op "Verwijderen"

Gaat dit vaker voorkomen, dan wellicht een macrootje:
Code:
Sub VerwijderNamen()
    Dim mijnNaam As Name
    For Each mijnNaam In Application.ActiveWorkbook.Names
        mijnNaam.Delete
    Next
End Sub
 
Wat is het bezwaar van die gedefinieerde namen in het kopiebestand ?
 
Het is om nieuwe oefenfiles te maken op basis van sheets uit andere files. Al die namen die niet gebruikt worden zijn dus pure balast en zorgen dus voor verwarring.
 
Is bij mijn weten niet mogelijk, maar namen verwijderen kan natuurlijk wel.
Als het een eenmalige actie is:
Kies "Formules","Namen beheren"
Bovenste naam is reeds geselecteerd
Scroll naar beneden en Shift-Klik op laatste naam.
Klik op "Verwijderen"

Gaat dit vaker voorkomen, dan wellicht een macrootje:
Code:
Sub VerwijderNamen()
    Dim mijnNaam As Name
    For Each mijnNaam In Application.ActiveWorkbook.Names
        mijnNaam.Delete
    Next
End Sub

Bedankt, weet ik. Maar ik hoopte op een meer eenvoudige truk.
 
Wat is eenvoudiger dan een sneltoets in het persoonlijke werkboek met:

Code:
Sub M_weg()
  For Each it In Names
    it.Delete
  Next
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan