xlsm als xlsx speichern VBA
20.04.2019 16:02:59
Tobi
diese Woche hat mir Alexandra freundlicherweise geholfen und mir den Code mitgeteilt, mit dem man eine UserForm beim schließen in eine xlsx abspeichern kann.
Der Code funktioniert zwar, allerdings erscheint jetzt auch eine Speicherabfrage, wenn ich von der UserForm 1 mit dem Commandbutton (Liste) auf die UserForm 2 wechsle und auch wenn ich dann wieder zurück auf die UserForm 1 gehe.
Eventuell liegt es daran, dass ich die UserForm 1 mit "Unload Me" schließe und nicht mit UserForm1.Hide. Denn bei UserForm1.Hide erscheint diese Abfrage nicht.
Leider kann ich die UserForm1 nicht mit "Hide" verstecken, weil dann die ListBox in UserForm 1 nicht mit sortiert wird.
Gibt es eine Lösung?
Der Code zum Abspeichern als xlsx:
Private Sub UserForm_Terminate()
Dim sichdatei As String
Dim pfad As String
Sheets("Tabelle1").Copy
sichdatei = "Sicherungskopie_Datenbank.xlsx"
pfad = ThisWorkbook.Path
ActiveWorkbook.SaveAs pfad & "\" & sichdatei
ActiveWorkbook.Close savechanges:=True
End Sub
Ich danke vielmals, falls jemand sich der Sache annimmt.
Liebe Grüße Tobi
https://www.herber.de/bbs/user/129288.xlsm