Hallo,
ich habe mir eine Vorlagendatei gebastelt. In dieser Datei rufe ich nachfolgendes Makro (gefunden im www) auf.
Das entsprechende Tabellenblatt wird wie gewünscht gespeichert. Nur wenn ich die gespeicherte Datei öffne erfolgt eine Meldung, dass das Format von dem in der Dateierweiterung abweicht.
Prinzipiell habe ich verschiedene Tabellenblätter. Auf jedem dieser Tabellen gibt es Buttons die mit Makros hinterlegt. Auch hohle ich über Sverweis-Funktion verschiedene Bilder in die jeweilige Tabelle.
Nun möchte ich das die aktive Tabelle (aus meiner Vorlagendatei) unter einem eingebaren Namen (Speichern unter) mit den entsprechenden Bildern jedoch ohne die Makros als "normale" Exceldatei gespeichert.
Viele Grüße Tom
Sub SpeicherMirsAlsNeueMappe()
Dim wksA As Worksheet
Dim wbkNeu As Workbook, wbkAlt As Workbook
Dim vntPathAndFile As Variant
Dim I As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
'Aktuelles Blatt merken
Set wksA = ActiveSheet
vntPathAndFile = Application.GetSaveAsFilename( _
InitialFileName:= _
fs.GetBaseName(ActiveWorkbook.Name) & " - " & _
wksA.Name & " -" & _
Format(Now, " yyyy-mm-dd") & ".xls", _
FileFilter:="Excel Files(*.xls), *.xls", _
Title:="Speichern als")
If Not vntPathAndFile = False Then
'Aktuelle Mappe merken
Set wbkAlt = ActiveWorkbook
'Neue Mappe erzeugen
Set wbkNeu = Workbooks.Add
'Das Blatt an erste Stelle kopieren
wksA.Copy wbkNeu.Sheets(1)
'Alle anderen (leeren) Bl?tter l?schen
Application.DisplayAlerts = False
For I = wbkNeu.Sheets.Count To 2 Step -1
wbkNeu.Sheets(I).Delete
Next
Application.DisplayAlerts = True
'Neue Datei speichern
wbkNeu.SaveAs vntPathAndFile
'Neue Datei schlie?en
wbkNeu.Close
End If
End Sub