opslaan met de inhoud van de cel A1

[Henk Schepers]

Hallo deskundigen
Ik heb onderstaande macro voor het opslaan van een worksheet met als bestandsnaam de gegevens uit cel A1 (datum en tijd)
De foutmelding geeft aan dat NieuweBestandsNaam "de variabele is niet gedefinieerd"
Ik heb de code al eerder gebruikt en toen werkte het goed
kan iemand mij vertellen wat er fout gaat?

Private Sub opslaan_Click()
ChDir "i:\data\excel\ad\kenia\"
   NieuweBestandsNaam = "" & ActiveSheet.Range("a1").Value & ".xls"
    ActiveWorkbook.SaveAs Filename:="i:\data\excel\ad\kenia\" & NieuweBestandsNaam
ChDir "i:\data\excel\ad\kenia"
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close Filename:="i:\data\excel\ad\kenia\" & NieuweBestandsNaam
End Sub

 

[Breuk132]

Hallo Henk,

Als je hem alleen wilt opslaan en daarna sluiten is het volgende ook voldoende.

Private Sub opslaan_Click()

ActiveWorkbook.SaveAs Filename:="i:\data\excel\ad\kenia\" &  ActiveSheet.Range("a1").Value & ".xls"
ActiveWorkbook.Close False
End Sub

 

[Henk Schepers]

Bedankt voor je snelle reactie

Ik ga het uitproberen

 

[Henk Schepers]

wat ik wil gaat nog niet goed

Hij moet in de bestandsnaam de datum en tijd weergeven. Excel accepteert geen ":" in de bestandsnaam en daarom wordt het bestand niet opgeslagen ook niet als ik het format verander zoals beneden.
als ik op (a1) "jan" invul werkt het goed

Private Sub opslaan_Click()

ActiveSheet.Range("a1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "d/m/yy h/mm"

ActiveWorkbook.SaveAs Filename:="i:\data\excel\ad\kenia\" & ActiveSheet.Range("a1").Value & ".xls"
ActiveWorkbook.Close False
End Sub

 

[Henk Schepers]

Ik heb nog geen oplossing voor de : bij het opslaan van bestand

Helaas heb ik nog geen oplossing gevonden voor de dubbele punt in de bestandsnaam via de macro.
zie bovenstaand verhaal

 

[Warme bakkertje]

Op deze manier zal het wel lukken

ActiveWorkbook.SaveAs Filename:="I:\data\excel\ad\kenia\" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".xls"

 

[Bakk4318]

Als je het rode gedeelte aan je code toevoegd, zou het moeten werken volgens mij.

Private Sub opslaan_Click()
[COLOR="Red"]Dim NieuweBestandsNaam As String[/COLOR]
ChDir "i:\data\excel\ad\kenia\"
   NieuweBestandsNaam = "" & ActiveSheet.Range("a1").Value & ".xls"
    ActiveWorkbook.SaveAs Filename:="i:\data\excel\ad\kenia\" & NieuweBestandsNaam
ChDir "i:\data\excel\ad\kenia"
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close Filename:="i:\data\excel\ad\kenia\" & NieuweBestandsNaam
End Sub

 

[Henk Schepers]

Warme bakkertje

Dat is de oplossing :d
Het werkt nu helemaal goed
Heel hartelijk bedankt

En ook Bakk4318 bedankt voor je sugestie