Saveas "B2"

[tsjokko]

Hallo,

Ik heb een macro gemaakt die doet wat ik wil. Voor de finishing touch zou het fijn zijn als het bestand daarna wordt opgeslagen met als naam de inhoud van cel B2. Deze cel is een datum maar weergegeven als tekst.
Ben al een poosje aan het proberen maar kom er niet uit. Ook de cel een naam geven heeft mij niet geholpen. Wie kan mij het kunstje leren.

Ricky

 

[Roncancio]

Opslaan

Onderstaande coderegel bewaart het bestand met de waarde die in cel B2 staat.

ActiveWorkbook.SaveAs Filename:=[B2]

Mocht de cel B2 op een ander werkblad staan dan kan je bovenstaande code aanpassen. Bijvoorbeeld:

ActiveWorkbook.SaveAs Filename:=worksheets("[naam werkblad]").range("B2")

 

[tsjokko]

Snel en goed, Zie nu dat ik wel warm ben geweest.
Mucho Gracias

Ricky