bestandsnaam automatisch halen uit een bepaalde cel in het werkblas

[Havana100]

Beste,

Is het mogelijk dat bij het opslaan van een excel file de naam van de file deze is welke in een bepaalde cel van de file staat?


Voorbeeld : in Cel A1 staat ; helpmij.nl


Als ik de excel file zou opslaan zal dus de naam van de file zijn : helpmij.nl. Indien in cel A1 "bedankt" zou staan , dan zou de excel file als bedankt worden opgeslagen.


En sowieso bedankt voor het lezen!!!!

 

[gast0660]

Option Explicit 
 Sub dotchie() 
    Dim FName As String 
    Dim FPath As String 
    FPath = "C:" 'dit aanpassen
    FName = Sheets("Blad1").Range("A1").Text 
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName 
 End Sub

 

[Havana100]

Beste gast0660,

Bedankt hoor! Maar ik denk dat dit een VBA code is? En ............. niet zo bekend met VBA, is het eventueel mogelijk om dit zonder VBA voor mekaar te krijgen?

Of weet je waar ik ergens kan vinden hoe ik dit, simpel, zou kunnen ingeven?


En nogmaals bedankt !

 

[HSV]

Helaas kan dat niet zonder een Vba-code.