Hallo Zusammen, Ich würde gerne mittels makro Excel "Speichern unter". Würde mich über Hilfe sehr freuen, Danke sehr

Question

Anstelle "Arbeitsschein Technik.xlsm" möchte ich in den Dateipfad einen Dateinamen im .xlsx Format vergeben. Wie geht das?

Sub Speichernunter()
'
' Speichernunter Makro
'

'
    ChDir "\\fsSHVLLn01\n_SHVLL\Heime\Enns\Alle\Haustechnik\Arbeitsscheine\Auftrag"
    ActiveWorkbook.SaveAs Filename:= _
        "\\fsSHVLLn01\n_SHVLL\Heime\Enns\Alle\Haustechnik\Arbeitsscheine\Auftrag\Arbeitsschein Technik.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Answer 1

Hallo,

das kannst du so lösen:

Sub Speichernunter()
'
' Speichernunter Makro
' Dateiname wird im Makro festgelegt

'

Dim strName As String

'Speicherpfad und Dateiname festlegen
strName = "\\fsSHVLLn01\n_SHVLL\Heime\Enns\Alle\Haustechnik\Arbeitsscheine\Auftrag\Arbeitsschein Technik.xlsx"

'Mögliche Nachfragen und Hinweise ausschalten
Application.DisplayAlerts = False
     
'Speichern
ActiveWorkbook.SaveAs strName, 51

'Meldungen wieder anzeigen
Application.DisplayAlerts = True

End Sub

Die 51 entspricht dem Fileformat xlOpenXMLWorkbook, d.h. ohne Makros.

Gruß

M.O.