xlsm per Makro als xls abspeichern und dabei alle Makros entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Sa() ActiveWorkbook.Sheets.Copy ' ein neues Workbook wird erzeugt und ist sofort aktiv ActiveWorkbook.SaveAs Filename:="C:\Users\...\SaveCopyAs.xlsx", FileFormat:=51 ActiveWorkbook.Close End Sub

Hallo,
erstmal 1000 x sorry, das mit xls und xlsx war unüberlegt von mir, ich meinte nur xlsx ... Hauptsache, die Makros sind weg :-/
Vermutlich habe ich für diesen Thread jetzt eh zu lange gebraucht ... aber anhand meines bisherigen Makros und den vorgeschlagenen Ansätzen, habe ich jetzt das hier zusammengebastelt von der Struktur her:
die Schritte um Makro:
Schritt 1) die xlsm-Datei wird zuerst gespeichert (etwaige manuelle Änderungen vor dem Ausführen des Makros also gesichert)
Schritt 2) ... (diverse Befehel zum Löschen von Tabellenblättern, formatieren von Tabellen, etc.)

Schritt 3) es wird eine Kopie der Datei erstellt
Schritt 4) für diese Kopie wird eine Aufforderung zum Speichern als xlsx-Datei generiert. Es wird dabei bereits ein Pfad vorgeschlagen und der Dateiname wird automatisch erzeugt
Schritt 5) die so abgespeicherte xlsx-Datei bleibt offen. Die xlsm-Datei wird geschlossen und zwar mit dem zu Beginn des Makros gesicherten Standes, eine Warnung zum Abspeichern der Änderungen müsste also unterdrückt werden
die Makro-Elemente dafür, soweit ich sie zusammenhabe:
Schritt 1)
ActiveWorkbook.Save
Schritt 2) [...] diverse Befehel zum Löschen von Tabellenblättern, formatieren von Tabellen, etc.
Schritt 3)
ActiveWorkbook.Sheets.Copy
Schritt 4)
Dim Ordner
Dim strPath As String
Dim FN As String
Dim fDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Bitte das entsprechende Unterverzeichnis auswählen!"
.InitialFileName = "D:\Projekte\Auswertungen"
If .Show = -1 Then
For Each Ordner In .SelectedItems
strPath = Ordner
Next
Else
Exit Sub
End If
End With
With ActiveSheet
FN = .Range("A2").Value & "_Änderungen.xlsx"
End With
If Right(strPath, 1) "\" Then strPath = strPath & "\"
ActiveWorkbook.SaveAs Filename:=strPath & FN
Schritt 5)
ThisWorkbook.Close savechanges:=False
Es funktioniert nun alles, bis auf Schritt 4), die automatische Namenserzeugung. Hier soll eigentlich der Name des (übriggebliebenen - alle anderen werden gelöscht) Tabellenblattes integriert werden. Der Name besteht dann aus Inhalt der Zelle A2, Unterstrich und dem Namen des Tabellenblatts/-reiters: [Inhalt Zelle A2]_[Name Tabellenblatt].xlsx
Ich habe an der Zeile
FN = .Range("A2").Value & "_Änderungen.xlsx"
mit ActiveSheet.Name herumprobiert aber es funktioniert nicht ...
Falls hier noch jemand eine Idee hat, wäre das super!
Danke,
Tobias

Hi Tobias,
die einfachste Variante (mit meinem Wissen! ;-) ) ist das hier:
1. erstell eine neue Datei, ich nenne sie mal XXX, die NUR das Makro enthält, mit dem du aus deiner Datei mit Makro eine Datei ohne Makro machst. Deine Datei nenne ich mitMakro
2. in XXX wird per Makro zuerst wieder eine neue Datei erstellt. Diese Datei nenne ich mal ohneMakro
3. So, nun werden nacheinander nur die Daten (Werte) aus allen Tabellenblätter aus mitMakro kopiert und in ein jeweils eigenes Tabellenblatt in ohneMakro eingefügt. Alle Werte mit allen Formaten mit allen Formeln, aber alles ohne Makros!
4. Jetzt noch die Datei ohneMakro irgendwo speichern - fertig
Und erst ab jetzt wird HaJo's Vorschlag hilfreich!
Die Schritte 1 - 4 kannst du wirklich mit dem Makrorecorder durchführen.
Hilft mein Ansatz?
(wenns beim 1. Versuch nicht klappt, probier es immer und immer wieder...Fahrradfahren konntest du auch nicht gleich beim 1. Mal, oder?! :-) )
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

xlsm per Makro als xls abspeichern und dabei alle Makros entfernen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

xlsm per Makro als xls abspeichern und dabei alle Makros entfernen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread