Blatt "speichern unter" mit best. Namen
04.08.2017 22:39:54
mike
mit den ersten Zeilen kopiere ich Werte aus der aktiven Datei "tool" in das Tabellenblatt "offer" der aktiven Datei "tool", welches vorher erstellt worden ist.
Dann soll das Blatt "offer" aus der aktiven Datei "tool" mit "speichern unter" in einer neuen Datei gespeichert werden.
Der zu verwendende Name für die neue Datei steht an 2 Stellen:
in der Datei Tool auf dem Reiter introduction in Zelle B5
und in der neu erstellten Datei auf dem neuen Reiter offer in der Zelle F1.
So weit so gut.
Wenn nun der "speichern unter" Dialog aufgeht, soll der Name dort drin stehen, sodass man nur noch den Ordner auswählen muss.
Leider bekomme ich den Namen dort nicht rein.
Vermutlich stoppt das Makro an dieser Stelle...
da ja eine neue Datei erstellt wird, in der es keine Makros gibt....
Sub export()
Dim WS As Worksheet
Set WS = ActiveSheet
Worksheets("introduction").Range("B2").Copy
Worksheets("offer").Range("D1").PasteSpecial xlPasteValues
Worksheets("introduction").Range("B5").Copy
Worksheets("offer").Range("F1").PasteSpecial xlPasteValues
Worksheets("offer").Copy
Application.Dialogs(xlDialogSaveAs).Show "C:\" & Range("F1")
End Sub