|
Hi, ich möchte gerne den Dateinamen inkl. mit einem spezifischen Datum aus einer Zelle, sowie einer weiteren ergänzen. Also etwa so:
Dateiname= bestehender Dateinamen_Zelle A_Zelle B.xls
Hier mein bisheriger Code, der leider noch nicht ganz funktioniert (fett markiert) ;-)
Sub PPS()
'
' PPS Makro
'
Dim sDatei As String, sZielDatei As String
Dim Pos
sPfad = ActiveWorkbook.Path & "\"
sDatei = ActiveWorkbook.Name
Pos = InStrRev(sDatei, ".", , vbTextCompare)
sZielDatei = sPfad & Mid(sDatei, 1, Pos - 1)
sZielDatei = sZielDatei _
& "_" & Range(D5) _
& "_" & Range(I10)
ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
'
End Sub
VIelen Dank für euere Unterstützung.
|