.xltm öffnen und als .xlsx speichern ohne Makros

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Dazu kann ich nichts schreiben, da
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Viel Erfolg noch, vielleicht schaut jemand auf Deinen Rechner.
Gruß Hajo

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

Beliebteste Forumthreads (12 Monate)

.xltm öffnen und als .xlsx speichern ohne Makros

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

.xltm öffnen und als .xlsx speichern ohne Makros

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

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread