Excel-Vorlage mit Makros - Automatisch Speichern

Hallo zusammen,

ich habe eine Excel-Vorlage mit Makros erstellt und möchte gerne, dass die Speicherung der Datei, mit vordefinierten Dateinamen, automatisch durchgeführt wird sobald eine bestimmte Zelle verändert wird.

Aus der normalen" Excel-Datei mit Makros funktioniert es ohne Probleme, nur bei der Excel-Vorlage komm ich nicht weiter.

Starte ich das Makro aus der normalen" Excel-Datei mit Makros öffne sind der Speichern unter Dialog in dem Verzeichnis in dem die Datei liegt.
Bei der Excel-Vorlage öffnet sich der Speichern unter Dialog unter c:.

Ich gehe davon aus, dass der ActiveWorkbook.Path das Problem ist, da es ja noch kein Workbook ist sondern eine Vorlage.

Die .xltm lässt sich nicht hochladen dafür habe ich die funktionierende .xlsm angehängt. (Hier muss A1 geändert werden um das Makro zu starten)
https://www.herber.de/bbs/user/163328.xlsm

Vielleicht hat jemand eine Idee.
Viele Grüße,
Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jörg,

ersetz deinen Code durch diesen hier



Sub Datei_speichern()

    

    Dim fileSaveName As String

    Dim Woche As String

    Dim Jahr As String

    Dim lstrPath As String 'Variable für Pfad (+Dateiname) definieren



    

    Datei = "Datei"

    Woche = "Woche"

    

'Datei mit vorgegebenen Namen als xlsm speichern

        

        'wenn ActiveWorkbook.Path = ""; und DAS IST ES, wenn Vorlage geöffnet wurde, dann...

        If ActiveWorkbook.Path = "" Then

                '...Pfad-Variable MIT DEINER ZIELPFAD-Vorgabe belegen (bei mir wäre es "D:Herber")

                lstrPath = "D:Herber" & Woche & "_" & Schiff & ".xlsm"

            'wenn nicht Vorlage, sondern schon mal erstellte/gespeicherte Datei neu gespeichert werden soll, dann...

            Else

                '...Pfad-Variable mit deinem bisherigen Code belegen

                lstrPath = ActiveWorkbook.Path & "" & Woche & "_" & Schiff & ".xlsm"

        End If

        

    'anstelle für InitialFileName:= deinen festen Pfad hier die Pfad-Variable eintragen

    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=lstrPath, FileFilter:="Microsoft Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm")

    ActiveWorkbook.SaveAs Filename:=fileSaveName

    fileSaveName = Left(fileSaveName, Len(fileSaveName) - 5)



End Sub

Hilfts?

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Excel-Vorlage mit Makros - Automatisch Speichern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Vorlage mit Makros - Automatisch Speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread