ich benötige einmal Hilfe bei Excel 2019 (seit Excel 97 habe ich nicht mehr mit Markos gearbeitet).
Ich habe mir eine Excel Vorlage (.xltm) mit Makro erstellt.
Das Makro (Name ist Speichern), jedoch tut es nicht wie ich es möchte, auch nach 1 Tag suchen im Netz und diesem Forum wurde ich nicht fündig, obwohl es was Simples ist.
Mein Ziel ist es durch drücken eines Button soll das Makro ausgeführt werden.
Es soll mir die Dialogbox vom "Speichern unter" im Vorgegeben Pfad mit einem Vorschlagsname aus einer ausgelesenen Zelle (N6) geben und als normale Excel Tabelle (.xls) fertig stehen, aber noch nicht final Speichern, sondern mir die Option lassen diesen Namen zu ändern.
Also nur die Speichern-unter Box öffnen, aber mit einem Vorgeschlagenen Datei-Namen und Endung, so das ich dann manuell Speichern/OK drücken muss.
Mein Marko:
Sub Speichern()
Dim SaveName As String
SaveName = ActiveSheet.Range("N6").Text
ActiveWorkbook.SaveAs Filename:="D:\Ordner\Ordner1\" & _
SaveName & ".xls"
End Sub
Dieses Makro speichert macht alles richtig, aber speichert sofort , ohne mir die Box zu öffnen so dass ich keine Änderung machen kann.
Ich habe hier eine ähnliche Frage gesehen und mir diesen Vorschlag genommen.
Aber das tut dasselbe, also speichert direkt ohne die Box zu öffnen.
Sub Speichern()
ChDir "D:\Ordner\Ordner1"
ActiveWorkbook.SaveAs Filename:= _
"D:\Ordner\Ordner1\" & Range("N6") & ".xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.Goto Reference:="Speichern"
End Sub
Beide Makros machen leider das selbe.
Wer kann mir da helfen?
Ich will nur die Box mit dem Vorgeschlagenen Namen aus Zelle (N6), aber noch nicht Automatisch speichern.
Zu dem hätte ich dann noch einen zweiten Wunsch (habe ich noch nicht versucht, weil ich schon an dieser scheitere).
Ich möchte das dann die aus der Excel Vorlage (.xltm) gespeicherte (.xls) Datei dann keine Makros mehr enthält, ohne dass eine Abfrage Fenster erscheint und mich dieses erneut fragt ob ich mit Makros oder Ohne.