Makro Dateiname mit Dateityp
06.05.2014 08:45:41
Matthias
Leider habe ich durchs googeln nichts passenden oder funktionierendes gefunden!!!
Ich habe eine Excel Vorlage mit Makros wenn ich auf speichern oder Speichern unter gehe schlägt er mir aus dem Blattnamen Diagramm, aus der Zelle P24, den Dateinamen vor. Soweit so gut.
Jetzt kommt mein Problem ich muss immer den Dateityp manuell vergeben (Excel-Arbeitsmappe mit Makros = *.xlsm). Vorbelegter Dateityp ist immer (Excel-Arbeitsmappe = *.xlsx)
Kann man in den unten aufgeführten Code etwas einbauen was den Dateityp automatisch auswählt? Damit diese Datei auch immer mit Makros gespeichert wird.
Wenn ja, wie muss der Code dann aussehen?
Ich danke euch schon mal für jeden Vorschlag oder Code im Voraus.
Gruß Matthias (Makro-Anfänger)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Diagramm")
Dateiname = .[P24]
End With
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname
Cancel = True
Application.EnableEvents = True
End Sub
Anzeige