Opslaan met naam uit cel

[Ron321]

Ik wil in mijn bestand een knop maken op het eerste blad waarmee ik het document op kan slaan onder de naam die in cel A1 van blad2 staat.
Weet iemand hiervoor de code in VBA?
Alvast hartelijk dank.

 

[huijb]

Op deze wijze zou het moeten gaan;
Sub OpslaanAls()
ActiveWorkbook.SaveAs Filename:=[Blad2].[A1]
End Sub

 

[Ron321]

Helaas, dat werkt niet.

 

[huijb]

Hmmm bij mij wel, Office versie 2000, welke heb jij?

 

[Ron321]

2003

Ik heb iets uit een ander bestandje geplozen wat 1 1/2 jaar geleden op dit forum is geplaatst alleen nu loop ik tegen het volgende probleem aan:
De bestandnaam die in cel A1 staat bestaat uit 06 (jaartal) en dan een punt gevolgd door nog een nummer.
Nu slaat hij het niet meer op als xls maar een bestand met type het nummer na de punt.
Hoe kan ik dat oplossen?

 

[LucB]

Probeer dit eens



Sub OpslaanAls()
ActiveWorkbook.SaveAs Filename:=[Blad2].[A1].Text & ".xls"
End Sub

 

[Ron321]

Perfect heren, bedankt voor jullie medewerking:thumb:

 

[sonp]

Dag Allemaal,

Ik wil graag de mogelijkheid een sheet op te slaan met de actuele datum en tijd
kan dat met NU of moet dat anders. Ik gebruik en 1 veld het NU commando om de datum en tijd weer te geven maar als ik hier
ActiveWorkbook.SaveAs Filename:=[Blad2].[A1] voor gebruik dan neemt hij niet de datum over
Iemand een idee ?

hieronder mijn variatie maar die werkt dus niet

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs Filename:=[Blad1].[NU]
End Sub

 

[huijb]

Het is verstandiger en netter om in het vervolg een nieuwe thread te openen, maar omdat het zo een schitterend weer was vandaag vooruit. Probeer onderstaande eens;

ActiveWorkbook.SaveAs Filename:=Format(Date, "dd-mm-yy")

 

[sonp]

Van harte bedankt voor deze snelle reactie en inderdaad het was verstandiger om even een nieuw draadje te openen, dat doe ik dan nu even want ik zit met nog een paar vragen