In een vba heb ik een bestandsnaam als variabele gedefinieerd. Vervolgens wil ik die bestandsnaam gebruiken in een formule en dat probeer ik als volgt:
Dim ID As String
Dim Naam As String
Dim Pad As String
Dim Bestandsnaam As String
ID = ActiveCell.Value & ". "
ActiveCell.Offset(0, 1).Select
Naam = ActiveCell.Value & ".xlsm"
Pad = "C:\Users\Geraldine\Documents\Diataal"
Bestandsnaam = Pad & ID & Naam
Workbooks.Open Filename:= _
"C:\Users\xxxx\Documents\Diataal\blanco formulier.xlsx"
ActiveWorkbook.SaveAs Filename:= _
Bestandsnaam, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("A3").Select
ActiveCell.Value = ID
ActiveWorkbook.Save
Windows("basisgegevens").Activate
Range("B1").Select
ActiveCell.Offset(0, 8).Select
ActiveCell.FormulaR1C1 = "=+'[bestandsnaam]hulpblad'!R2C1"
Op de een of andere manier werkt dit niet, ik moet steeds zelf het bestand aanklikken. Dan krijg ik wel de juiste waarde, maar in de cel komt te staan:[bestandsnaam]hulpblad'!R2C1 en dus niet de juiste bestandsnaam.
Kan iemand me hiermee helpen? Ik heb dagen gezocht op internet, maar vind het antwoord niet
Dim ID As String
Dim Naam As String
Dim Pad As String
Dim Bestandsnaam As String
ID = ActiveCell.Value & ". "
ActiveCell.Offset(0, 1).Select
Naam = ActiveCell.Value & ".xlsm"
Pad = "C:\Users\Geraldine\Documents\Diataal"
Bestandsnaam = Pad & ID & Naam
Workbooks.Open Filename:= _
"C:\Users\xxxx\Documents\Diataal\blanco formulier.xlsx"
ActiveWorkbook.SaveAs Filename:= _
Bestandsnaam, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("A3").Select
ActiveCell.Value = ID
ActiveWorkbook.Save
Windows("basisgegevens").Activate
Range("B1").Select
ActiveCell.Offset(0, 8).Select
ActiveCell.FormulaR1C1 = "=+'[bestandsnaam]hulpblad'!R2C1"
Op de een of andere manier werkt dit niet, ik moet steeds zelf het bestand aanklikken. Dan krijg ik wel de juiste waarde, maar in de cel komt te staan:[bestandsnaam]hulpblad'!R2C1 en dus niet de juiste bestandsnaam.
Kan iemand me hiermee helpen? Ik heb dagen gezocht op internet, maar vind het antwoord niet