.xltm öffnen und als .xlsx speichern ohne Makros

MaBlu · 2019-01-01T11:54:28+00:00

Hallo zusammen Zuerst allen ein Gutes Neues Jahr Ich habe mir eine eigene Rechnung erstellt und dabei diverse Makros integriert, nun möchte ich die Vorlage .xltm mit automatischem Namensvorschlag speichern als .xlsx aber ohne die Makros nur die Rechnung, Frage wie muss ich mein Makro ändern damit alle Makros gelöscht werden im Dokument, und nur als .xlsx gespeichert? PS: die Makros habe ich zusammen kopiert aus verschiedenen Quellen nach meinem Bedürfnis aber zu mehr bin ich nicht Fähig sorry, ich hab gegugelt und viel getroffen aber ich konnte nichts zusammen bringen? Als Anlage mappe habe ich eine .xlsm erstellt wegen dem öffnen. https://www.herber.de/bbs/user/126412.zip Für eure Hilfe besten Dank MaBlu

Hallo
hab ich gemacht und es sieht anders aus, hier kommt dann die Frage ob ich will dass die Makros wegfallen, aber was ich jetzt mit dem Anfangen soll ?
Hab diverse Versuche gemacht kein Erfolg?

Sub Speichern_unter()
' hier wird der Pfad und der name aus aus dem Dokument gelesen und als Vorschlag für das  _
Speichern übernommen!
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\Users\MBDELL\Documents\Meine_Rechnungen\" 'Verzeichnis-Vorschlag
Datei = Range("D19") & "_" & Range("B11") & Format(Date, "_dd_mm_yyyy") & ".xls" 'Datei- _
Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy  False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern  _
gedrückt
End Sub

Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel  _
Dateien (*.xls),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function

Makro Recorder:

Sub meinespeicheraufzeichnung()
' meinespeicheraufzeichnung Makro
ChDir "C:\Users\MBDELL\Documents\Meine_Rechnungen"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\MBDELL\Documents\Meine_Rechnungen\Vorlage_RECHNUNG3.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

könnt ihr mir den Code zusammen stellen?
Gruss MaBlu

Hallo Robert Werner
ich hab's geschnallt, ich hatte zuerst das ganze Ersetzt und darum hat es nicht Funktioniert, wenn ich nur den Roten Teil einsetze gehts super, jetzt habe ich die Finale Version!

Sub Speichern_unter()
' hier wird der Pfad und der name aus aus dem Dokument gelesen und als Vorschlag für das  _
Speichern übernommen!
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\Users\MBDELL\Documents\Meine_Rechnungen\" 'Verzeichnis-Vorschlag
Datei = Range("D19") & "_" & Range("B11") & Format(Date, "_dd_mm_yyyy") & "_" & Format(Time, " _
HH_mm_ss") & ".xlsx" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy  False Then
ActiveWorkbook.SaveAs Filename:=SaveDummy, FileFormat:=xlOpenXMLWorkbook
SaveDummy = Left(SaveDummy, Len(SaveDummy) - 4) & "pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveDummy _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End If
End Sub

Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel  _
Dateien (*.xlsx),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function

Vielen vielen Dank darauf wäre ich nie gekommen, du hast mir sehr geholfen
Wünsche eine schöne Woche
MaBlu

.xltm öffnen und als .xlsx speichern ohne Makros

Forumthread: .xltm öffnen und als .xlsx speichern ohne Makros

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

.xltm öffnen und als .xlsx speichern ohne Makros

Forumthread: .xltm öffnen und als .xlsx speichern ohne Makros

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread