Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2012to2016
2012to2016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Datei beim beenden unter 2 Formaten automatisch speichern

Forumthread: Datei beim beenden unter 2 Formaten automatisch speichern

Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 11:11:04
Werner
Guten Morgen

Bräuchte wieder einmal euere Hilfe:

Ist es möglich eine Datei (geöffnet im Dateiformat xlsm) beim beenden automatisch als xlsm und als xlsx zu speichern?

Grund: Habe immer das Problem, dass ich eine Datei die als xlsm gespeichert (auf PC) sich mit dem Handy (Android) mit der Excel App nicht öffnen lässt.


Vielen Dank vorab für euere Hilfe.

Gruß Werner
Anzeige
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 11:23:20
Fennek
Hallo,

ja, es sollte gehen. "Workbook.Saveas" erlaubt den Dateityp zu setzen. Der Code muss auch die Rückfragen "Wollen Sie wirklich als xlsx speichern" automatisch beantworten können.

Etwas "Tüftelarbeit" ist das schon.

mfg
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 11:51:36
daniel
Hi
nur mit VBA.
Dazu diesen Code ins Modul "DieseArbeitsmappe" kopieren 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim nme As String



If Not SaveAsUI Then

    nme = ThisWorkbook.FullName

    nme = Left(nme, InStrRev(nme, ".") - 1)

    Application.EnableEvents = False

    Application.DisplayAlerts = False

    Me.SaveAs nme, xlOpenXMLWorkbook

    Me.SaveAs nme, xlOpenXMLWorkbookMacroEnabled

    Application.EnableEvents = True

    Application.DisplayAlerts = True

    Cancel = True

End If

End Sub


beim normalen Speichern wird die Datei dann in den beiden Varianten xlsx und xlsm gespeichert.
Beim Speichern_unter nicht (war mir zu kompliziert, das sauber auszuprogrammieren), dh wenn du unter einem anderen Namen speichern willst musst du ggf danach nochmal speichern.

Gruß Daniel
Anzeige
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 19:16:34
UweD
Hallo Daniel

Habe mir aus Interesse deine Lösung auch mal angesehen.

Prima gelöst.

Interessant, wenn die Datei als xlsx gespeichert, aber noch nicht geschlossen wird, dass dann der Code noch enthalten ist.

Spart das SaveCopyAs...

LG UweD
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 19:30:17
daniel
naja wenn das Makro auch in der Rechnerdatei schon beim Speichern gelöscht werden würde, dann müsste der Löschvorgang ja in einen laufenden Prozess eingreifen.
das tut so nicht.
Vermutlich ist es so, dass beim Speichern als xlsx oder xlsm die Datei nicht direkt gespeichert wird, sondern sowieso in xml-Code gewandelt werden muss. Dabei kann man dann den Makroteil löschen (das reguläre Format ist xlsb)
ähnliches hast du ja auch, wenn du als CSV speicherst. Dann wird deine Datei auch zur CSV, obwohl alle Excelfunktionalitäten noch vorhanden sind.

wobei ich es trotzdem für sinnvoll halten würde, wenn ein SaveCopyAs auch mit anderen Dateiformaten funktionieren würde.

Gruß Daniel
Anzeige
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 12:39:42
UweD
Hallo

Es klappte bei mir erst mit dem Umweg über eine Temporäre Datei.



Code gehört in "DieseArbeitsmappe" 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim Pfad As String, Datei As String, WbCopy As Workbook

    On Error GoTo Fehler

    Const APPNAME = "Workbook_BeforeClose"

    

    With ThisWorkbook

        .Save

        Pfad = .Path & "\"

        Datei = Replace(.Name, ".xlsm", "")

    

        'Kopie speichern

        .SaveCopyAs Pfad & Datei & "_temp.xlsm"

    End With

    

    'Kopie öffnen (schreibgeschützt)

    Set WbCopy = Workbooks.Open(Pfad & Datei & "_temp.xlsm", ReadOnly:=True)

    

    'Als .xlsx speichern (ohne Makros)

    Application.DisplayAlerts = False

    WbCopy.SaveAs fileName:=Pfad & Datei & ".xlsx", FileFormat:=xlOpenXMLWorkbook

    

    Application.EnableEvents = False

    WbCopy.Close SaveChanges:=False

    Kill Pfad & Datei & "_temp.xlsm" 'Temporäre Datei löschen

    

    '*** Fehlerbehandlung

    Err.Clear

Fehler:

    Application.EnableEvents = True

    If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _

        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear

End Sub



LG UweD
Anzeige
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 18:26:57
Werner Denner
Hallo UweD

Funktioniert wie es soll.

Herzlichen Dank dafür.

Werner
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 18:44:14
daniel
und meine Lösung funktioniert nicht?
oder warum bedankst du dich nicht bei mir?
ich bin jetzt etwas verwirrt.
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 21:07:13
Werner Denner
Habe die Lösung von UweD genommen.
Trotzdem an alle:
Vielen Dank für euere Hilfe.

Werner
Anzeige
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 21:11:56
daniel
Hi
ok, interessant.
worin siehst du die Vorteile von Uwes Lösung?
was macht er aus deiner Sicht besser als ich?
ich möchte ja auch was dazu lernen.
Gruß Daniel
AW: Datei beim beenden unter 2 Formaten automatisch speichern
18.06.2025 11:31:50
Werner
Hallo Fennek

Danke für die Rückmeldung, aber ich bin leider nicht so visiert in Excel dass ich das selber hinbringen würde.
Deshalb benötige ich weitere Hilfe.

Werner
Anzeige

Forumthreads zu verwandten Themen

Datei beim Runterfahren des PC automatisch öffnen
Marion

Hallo zusammen,
ich habe eine kurze Frage.
In Excel besteht die Möglichkeit über das Startmenü beim Hochfahren automatisch starten zu lassen.
Gibt es solch eine Funktion auch beim Runterfahren , d.h. bevor der PC tatsächlich runterfährt zunächst noch eine Datei geöffnet wird ?
Ziel...
03.06.2004 10:13:27
Thread-ID: 436705
1 Beitrag
Anzeige
Öffnen und Schließen der Datei mit Bedingungen
markus

Hallo zusammen,
ich möchte das beim Öffnen und Schließen keine weiteren Dateien geöffnet sind, das führt dazu das
sich die Ereignisse gegenseitig nicht erkennen. Einzeln funktionieren sie wunderbar nur halt nicht zusammen.
Hat jemand eine Lösung für mein Problem?
Danke.
Ausz...
01.01.2011 23:40:36
Thread-ID: 1193540
3 Beiträge
VBA Code nur am 31.12. ausführen
chris58
Hallo !
Bei meiner Datei kommt beim öffnen eine Msg-Box die mich erinnern soll, das ich am Jahresende einen Button zum Sichern drücke. Diese Box kommt aber jeden Tag.
Derzeit steht die Formel in A2 (=DATUM(JAHR(HEUTE());12;31) um den 31.12. des jeweiligen Jahres zu simulieren.
Gibt es e...
15.12.2024 10:34:39
Thread-ID: 1999668
6 Beiträge
Anzeige
Mit Datum verknüpfe Lösch-Funktion
Tw97

Hallo zusammen,
eine Aufgabe bereitet mir seit einiger Zeit Kopfzerbrechen. und zwar brauche ich ein Makro, welches automatisch beim Öffnen/Starten einer Arbeitsmappe das letzte Speicherdatum mit dem aktuellen Datum vergleicht und wenn es abweicht (auf Tagesbasis, die Datei wird jeden morge...
16.11.2018 15:30:56
Thread-ID: 1657790
6 Beiträge
Letzte bearbeitete Datei beim Hochfahren öffnen
Wolfgang

Hallo zusammen,
ich finde dieses forum super.
Meine Frage: Wie kann ich beim Starten von excel erzwingen, daß die letzte bearbeitete Datei automatisch geöffnet wird. Da sich die Namen der Dateien immer ändern, kann ich den Namen nicht fest eingeben.
Vielen Dank im voraus für die Hil...
06.09.2005 13:24:06
Thread-ID: 663128
1 Beitrag
Outlookzugriff aus Scheduled Task
Michael

Hallo zusammen,
ich habe hier ein Problem, bei dem ich irgendwie nicht weiterkomme.
Die Situation ist die folgende:
Eine Excel-Datei prüft auf einer Datenbank bestimmte Datensätze ab und soll beim Überschreiten bestimmter Fristen eine E-Mail an spezifizierte Empfänger senden. Bislan...
22.04.2020 13:55:33
Thread-ID: 1754237
2 Beiträge
Problem: lädt automatisch microsoft.xls bei Start
Ronny

Hi Leute,
habe Excel letztens nochmal neu installiert und seitdem sucht er beim Starten jedes Mal nach der Datei micosoft.xls in C:\Programme und will diese öffnen.
Woran liegt das? Wo kann man einstellen, welche Datei beim Start geöffnet wird bzw. dass er eine leere Arbeitsmappe erstelle...
09.01.2005 15:44:02
Thread-ID: 544093
1 Beitrag
Anzeige
an Frank-K - Fortsetzung Speicherproblem
Oberschlumpf

Hi Frank
Für Interessierte hier der Start:
https://www.herber.de/forum/archiv/864to868/t865875.htm
So, nun hatte ich wieder Zeit, und nun bin ich fertig...glaube ich.
Hier schon mal die Datei:
Die Datei https://www.herber.de/bbs/user/42190.xlt wurde aus Datenschutzgründen ge...
03.05.2007 01:04:01
Thread-ID: 866846
7 Beiträge
Anzeige
automatische Dokumentation von Zellwerten
Zellwerten

Hallo liebe Mitglieder des Forums,
ich habe ein kleines Excel Problem...
Vor ein paar Wochen habe ich hier eine Frage eingestellt, die sich mit einer automatischen Dokumentation von Zellwerten beim Start einer Excel-Datei beschäftigt hat. Mir wurde auch prima geholfen, aber nun wollte i...
03.08.2011 18:32:38
Thread-ID: 1224754
5 Beiträge
Tabellenblatt nach Zelleninhalt öffnen
Dieter Klein
Hi zusammen,

ich baue gerade eine Mappe die folgende Funktionen erfüllen soll:

1. Beim Starten der Mappe soll nur die Hauptmappe [Dashboard] erscheinen (klappt)
2. Anlegen von Tabellenblättern, diese werden dann automatisch in eine Liste [Daten] übertragen (klappt)
3. Der A...
05.10.2024 17:51:02
Thread-ID: 1992971
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum