Opslaan als met waarde in cel als naam

[ronald1986]

Goedemiddag allemaal,

Ik wil graag via vba een excel bestand laten opslaan. De naam die het bestand moet krijgen staat in cel A1 op het tabblad "Blad1". De locatie waar het opgeslagen moet worden is C:\Algemeen\Ronald

Weet iemand hoe ik dit kan doen met VBA? Ik kon het nergens vinden hier...

Bij voorbaat dank!

 

[danny147]

Beste Ronald1986

Probeer deze eens:

ActiveWorkbook.SaveAs Filename:="C:\Algemeen\Ronald\" & Range("A1") & ".xlsx"

Groetjes Danny. :thumb:

 

[ronald1986]

Sorry voor mijn late reactie maar dit werkt heel goed! Erg bedankt!

Ik heb nog wel een aanvullende vraag. Stel het bestand heet "Ronald". in cel A1 staat "Ronald" met daarachter de datum van de huidige dag. Als ik nu de macro uitvoer zal het bestand worden opgeslagen als "Ronald02122013". Het bestand blijft echter gewoon openstaan, maar nu onder de naam "Ronald02122013". Kan ik het ook zo aanpassen dat er alleen een kopie opgeslagen wordt onder de naam "Ronald02122013" en dat het geopende bestand gewoon de naam "Ronald" behoud?

Bij voorbaat dank!

 

[Warme bakkertje]

Kijk in de VBA-Help eens bij SaveCopyAs

 

[ronald1986]

Gevonden en werkt helemaal goed! Dank allemaal!