opslaan met naam uit inputbox

Status
Niet open voor verdere reacties.
P

Peter2016

Gebruiker
Lid geworden
4 sep 2015
Berichten
89
Hoe, kan ik de waarde van de inputbox mee laten opslaan?
Moet achter "overzicht" komen.

Sub Opslaan_Bnaam()

Dim Bnaam As String
Bnaam = InputBox("Type Bedrijsfnaam")
ActiveWorkbook.SaveAs Filename:="D:\Overzicht.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub
 
Je bedoelt dit?
Code: 
Sub Opslaan_Bnaam()
    Dim Bnaam As String
    
    Bnaam = InputBox("Type Bedrijsfnaam")
    ActiveWorkbook.SaveAs Filename:="D:\Overzicht\" & Bnaam & ".xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
 
Bijna, overzicht is geen map, maar tekst die voor de inputnaam komt te staan.
Dus bijv. "Overzicht [naam van de inputbox]".xlsm
Zit te klooien met aanhalings tekens .
 
Dan laat je toch gewoon die laatste \ weg?
Of vervang deze door een spatie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan