ich möchte über eine Input-Box einen Namen eingeben, unter dem ich eine Tabellenblatt als Datei speichern kann.
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
Sheets("Formular").Copy
ActiveWorkbook.SaveAs FileName:="C:\HL\Speichern\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Das Tabellenblatt wurde unter C:\HL\Speichern\ " & neuName & " gespeichert !", vbibformation
End Sub
Es funktioniert aber nicht. Irgendwie habe ich die " " bei der Pfadangabe falsch gesetzt. Ich komme einfach nicht drauf, wie es richtig geht.
Kann mir jemand helfen?
Vielen Dank vorab
Michael