Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern bei schließen einer Arbeitsmap

Forumthread: Speichern bei schließen einer Arbeitsmap

Speichern bei schließen einer Arbeitsmap
13.12.2022 08:59:54
Christian
Guten Morgen,
ich habe ein Problem, ich möchte beim schließen der Arbeitsmappe, dass diese unter einem immer gleichbleibenden Pfad gespeichert wird.
Beim öffnen funktioniert der Pfad und die Speicherung, jetzt möchte ich aber nicht beim öffnen sondern nur beim schließen diesen Pfad nutzten...
kommt aber leider immer ein Fehler, kann mir jemand helfen? Vielen Dank im Voraus

Private Sub Workbook_Deactivate()
Call Entwickler
Dim MyFile As String
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="O:\07-SDRS\Alle\VC\" & MyFile
ActiveWorkbook.Close
End Sub

Private Sub Workbook_Open()
Call Benutzer
' Dim MyFile As String
' MyFile = ActiveWorkbook.Name
' Application.DisplayAlerts = False
'   ActiveWorkbook.SaveAs Filename:="O:\07-SDRS\Alle\VC\" & MyFile
End Sub
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 09:41:57
onur
Hallo Pierre,
Nett, dass du "mitmischen" willst, aber hier ist kein Ratespiel. Dein Vorschlag hat gar nix mit dem Problem zu tun.
Anzeige
wirst du der neue Hajo? owT
13.12.2022 09:43:40
Rudi
AW: wirst du der neue Hajo? owT
13.12.2022 09:53:42
onur
Nee, aber den Helfer verwirrende Antworten von Leuten, die nicht mal das Problem verstanden haben und selbst, wenn sie es verstanden haben sollten, Vorschläge machen, die sie mal irgendwo gelesen haben, kann man sich sparen.
Sonst kann man gleich zum VBA-Forum gehen, wo sich fast nur Laien als Helfer versuchen.
Anzeige
AW: wirst du der neue Hajo? owT
13.12.2022 11:05:55
Pierre
Gut, dass du und sonst jeder andere auch immer gleich das Problem richtig versteht.
naja,....
13.12.2022 13:19:53
Rudi
manche deiner Antworten sind auch nicht gerade preiswürdig ;-)
Gruß
Rudi
AW: naja,....
13.12.2022 13:22:45
onur
Dito!
Aber - dafür hast du jetzt so lange überlegt? :)
Anzeige
ich hab ...
13.12.2022 15:52:46
Rudi
...noch anderes zu tun
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 09:18:18
Herbert_Grom
Hallo Christian,
vielleicht deshalb, weil du zum "schließen" Workbook_Deactivate verwendest, anstatt Workbook_BeforeClose!
Servus
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 14:30:41
Christian
Du hast recht, dass war der Fehler, Danke
Grüße
Christian
Anzeige
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 10:14:00
onur
Lass mal
ActiveWorkbook.Close
weg, denn das Workbook wird doch bereits gerade geschlossen.
Aber wie Herbert schon schrieb - besser das Close-Ereignis nutzen, sonst wird die Datei auch gespeichert, wenn du zu einer anderen Mappe, die geöffnet ist, wechselst, da das DeActivate-Ereignis eigentlich genau für diesen Fall gedacht ist.
Anzeige
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 14:31:54
Christian
Danke für Deine Zeit, hat geklappt... mit BevorClose funktioniert es.. :-)
Grüße Christian
AW: Speichern bei Deaktivieren einer Arbeitsmap
13.12.2022 10:23:52
GerdL
Hallo Christian,
ActiveWorkbook ist die Datei im Fokus, ThisWorkbbook die Datei mit dem Code.
Die Variable MyFile hat keinen Wert.
Welche Fehlermeldung kommt ?
Gruß Gerd
Anzeige
AW: Speichern bei Deaktivieren einer Arbeitsmap
13.12.2022 10:26:47
onur
Bestimmt diese:
Userbild
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 10:31:17
Rudi
Hallo,
wo auch immer MyFile herkommt.
Durch Dim MyFile As String in deiner Prozedur ist MyFile ="" auch wenn die Variable als Public deklariert und in einer anderen Prozedur belegt worden ist.
ActiveWorkbook im Deactivate-Event ist das WB zu dem gewechselt wurde und nicht das mit dem Code.
Ersetze dein Deactivate durch

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:="O:\07-SDRS\Alle\VC\" & MyFile
End Sub
Den Pfad würde ich in einem Modul als Konstante deklarieren. Dann musst du ihn ggf. nur an einer Stelle ändern.

Option Explicit
Public Const MyPath = "O:\07-SDRS\Alle\VC\"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:= MyPath & MyFile
End Sub
Gruß
Rudi
Anzeige
AW: Speichern bei schließen einer Arbeitsmap
13.12.2022 12:50:20
Christian
Vielen Dank für Eure Zeit, bin gerade am testen und gebe nachher Bescheid ob es funktioniert hat.
Danke Vorab :-)
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige