Automatisches Speichern
19.09.2018 11:40:09
Kellerhals
Ich habe folgendes Problem.
Ich möchte in einer Excel Tabelle einen Button einfügen der Speichert.
Er Soll den Speichername aus mehren Zellen zusammenfügen.
Soweit habe ich das auch hinbekommen.
Leider Speichert es die Datei mit der Endung .xlsx damit die Macros aber beim erneuten öffnen weiter funktionieren muss es mit der Endung .xlsm gepeichert werden.
Könnt Ihr mir helfen am liebsten mit einem fertigen Code.
Danke
Private Sub Speichern_Click()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "T:\abschleppdienst\Pneu Service\" & Range("C43")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad
.Show
Application.DefaultSaveFormat = xlsm
End With
If dialog False Then dialog.Execute
End Sub