benoemd bereik opslaan met bestandsnaam van een cel

[ricardo1969]

goedenmiddag,

Ik ben al een tijdje bezig maar kom er niet uit.
Ik heb diverse voorbeelden gebruikt op dit forum, maar krijg fouten.

Mijn doel is een macro te maken om een benoemd bereik op te slaan op een locatie met een bestandsnaam van de inhoud van een cel.

Sub OpslaanAlsh1()

dim Bestandsnaam As String

Bestandsnaam = "C:\Nieuwe map\Documents\2011\digitale bonnen\opgeslagen bonnen\" & CStr(Range("h1").Value) & ".xls"
ThisWorkbook.SaveAs Bestandsnaam

dit werkt perfect, alleen wil ik een deel van het blad opslaan en niet het hele werkblad.

nu moet ik alleen nog een deel van het blad wat ik een naam "boninfra" heb gegeven erin verwerken.

kan iemand mij aub op weg helpen.
zit ik wel op de goede weg hihihi

dank je wel alvast




End Sub

 

[wampier]

Beste kun je dan misschien eerst die data kopieren naar een nieuw bestand en dat saven. Er is een minimum van 1 werkblad natuurlijk, dus je moet of de rest weggooien in je oude bestand of een nieuwe maken met alleen de data die je wil gebruiken.