KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & ".xls"
MfG
Burghard
ActiveWorkbook.SaveAs SavePath & "\" & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & " " & ActiveSheet.Name & ".xls"
Gruß Matthias
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & " " & ActiveSheet.Name & ".xls"
Gruß Matthias