Speichern unter funktioniert nicht
13.01.2013 15:46:55
Albert
ich trage in einer Zelle (hier W8) den Speicherort ein und möchte nun, dass das Makro "Speichern unter neuen Namen" auf diesen Wert zugreift und im Makro übernimmt. Das unten dargestellte Makro funktioniert einwandfrei, wenn ich den Speicherort im Makro selbst eintrage und übernimmt mir den Wert aus der Zelle B2 = Dateiname anstandslos.
Sub Speichern_unter_neuem_Namen()
Dim neuerName As String
neuerName = Range("b2")
ActiveWorkbook.SaveAs Filename:="Q:\Test\" & neuerName & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox ("Datei wurde gespeichert!")
End Sub
Sub Speichern_unter_neuem_Namen()
Dim neuerName, neuesVerzeichnis As String
neuerName = Range("b2")
neuesVerzeichnis = Range("w8")
ActiveWorkbook.SaveAs Filename:=neuesVerzeichnis & neuerName & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox ("Datei wurde gespeichert!")
End Sub
Im Feld W8 findet sich folgender Eintrag: "Q:\Test\"
Ich hoffe, es kann mir jemand weiterhelfen, vielen Dank im Voraus
Albert