Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

InitialFileName in engl. Office

InitialFileName in engl. Office
24.01.2008 11:36:00
Micha
Hallo Forum,
ich habe ein Problem mit folgendem Code:

Sub Save_as()
Dim filesavename As Variant
Dim strdatum As String
Dim project As Variant
strdatum = Format(Worksheets("Tabelle").Range("C7"), "YYYYMMDD")
project = Worksheets("Tabelle").Range("C3").Value
If MsgBox(prompt:="Zu Beginn speichern Sie Ihr Projekt.", Buttons:=vbOKCancel + vbQuestion) _
= vbCancel Then Exit Sub
If Worksheets("Tabelle").Range("C7") And Worksheets("Tabelle").Range("C3")  Empty Then
filesavename = Application.GetSaveAsFilename(strdatum & " " & project, _
"Excel Macro-Enabled Workbook(*.xlsm), *.xlsm")
If filesavename  False Then
ActiveWorkbook.SaveAs filesavename
End If
End Sub


Funktioniert soweit ganz gut. Leider weigert er sich, das Ganze als *.xlsm zu speichern. Im SaveAs-Dialog wird zwar Excel Macro-Enabled Workbook angezeigt, nach dem Speichern liegt die Datei aber immer nur als *.xlsx vor, was ich doch aber gar nicht im FileFilter angegeben habe?
Wo liegt das Problem?
Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: InitialFileName in engl. Office
24.01.2008 11:43:00
Josef
Hallo Micha,
probier's mal so.
Sub Save_as()
Dim filesavename As Variant
Dim strdatum As String
Dim project As Variant

strdatum = Format(Worksheets("Tabelle").Range("C7"), "YYYYMMDD")
project = Worksheets("Tabelle").Range("C3").Value
If MsgBox(prompt:="Zu Beginn speichern Sie Ihr Projekt.", Buttons:=vbOKCancel + vbQuestion) _
    = vbCancel Then Exit Sub
If Worksheets("Tabelle").Range("C7") And Worksheets("Tabelle").Range("C3") <> Empty Then
    filesavename = Application.GetSaveAsFilename(strdatum & " " & project, _
        "Excel Macro-Enabled Workbook(*.xlsm), *.xlsm")
    If filesavename <> False Then
        ActiveWorkbook.SaveAs filesavename, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End If
End If

End Sub

Gruß Sepp

Anzeige
AW: InitialFileName in engl. Office
24.01.2008 12:00:00
Micha
PERFEKT! Und dabei war es doch so einfach :D
Will ich Code verwenden, muss das dann eigentlich das Format *.xlsm sein? Das das "m" für Macro steht, ist mir klar, doch im Excel XP genügte doch das Format *.xls aus und man konnte darin auch Macros starten?
Vielen Dank jedenfalls für die Hilfe!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige