SaveAs mit zellabhängigem Dateinamen
14.07.2005 14:51:28
Alexander
Beim Speichern berücksichtigt das Makro jedoch nur die Zelle D7 und D12, d.h. datName1 und datName4.
Wie muss ich das Makro verändern um diese 4 zellabhängigen Namen mit einem Leerzeichen getrennt automatisch in den "Speicher unter" Namen zu bekommen?
Danke für die Hilfe im Voraus
Sub Workbooksave()
Dim datName1 As String
Dim datName2 As String
Dim datName3 As String
Dim datName4 As String
Dim extName As String
Dim ergName As String
datName1 = [d7]
datName2 = [d9]
datName2 = [d11]
datName2 = [d12]
extName = ".xls"
ergName = datName1 & datName2 & datName3 & datName4 & extName
ActiveWorkbook.SaveAs Filename:=ergName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Anzeige