Hallo zusammen,

ich bräuchte ein Makro, welches den Speichern untern Dialog öffnet und die Arbeitsmappe/die Excel dabei im Excel 97-2003 xls Format speichert. 

Als Bonus wäre es noch gut, wenn der Dateiname als Vorschlag im Speichern unter Dialog den Wert aus einer bzw. mehreren Zellen beinhaltet. 

Aktuell sieht das so aus und funktioniert einwandfrei, aber das ist halt nicht das richtige Format. 

Das Verzeichnis E existiert bei mir gar nicht.  

Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant


   Verzeichnis = "E:\Z_Test\" 'Verzeichnis-Vorschlag
   Datei = Workbooks("Transformation-Upload-Tool.xlsm").Worksheets("Daily").Range("B2") & ".xls"   
   SaveDummy = SpeichernUnter(Verzeichnis & Datei)
   If SaveDummy <> False Then
   ActiveWorkbook.SaveAs SaveDummy 
   End If