Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dialogfenster beim Speichern verhindern ...

Dialogfenster beim Speichern verhindern ...
21.04.2016 13:34:03
udo
Hallo Forum,
weis mir Jemand die Anweisung wie man das Dialogfenster verhindert, das kommt
wenn Excel versucht ( per Makro unten ) zu speichern und dann entdeckt das eine
Datei mit gleichem Namen bereits in diesem Ordner existiert.
Er soll diesen Speichervorgang mit ja ( ok ) bestätigen und die Datei überschreiben und dadurch aktualisieren.
Ich beziehe den Speichernamen eben aus einer Zelle ( der sich dann aus div Anteilen zusammensetzt ).
Klar sonst würde es mit ActiveWorkbook.Save wohl auch gehen.
Ich verwende folgendes Makro :
Sub speichern_schließen()
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Worksheets("Verwaltung").Range("N14").Value
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit
If Workbooks.Count > 1 Then ThisWorkbook.Close
End Sub
wär euch sehr dankbar

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

Betreff
Datum
Anwender
Anzeige
AW: Dialogfenster beim Speichern verhindern ...
21.04.2016 13:42:33
Werner
Hallo Udo,
versuch mal
Application.DisplayAlerts = False
Bin mir jetzt aber nicht sicher, ob man die hinterher wieder einschalten muss oder nicht.
Gruß Werner

ah, ok, versuche ich gleich mal ...
21.04.2016 13:49:56
udo
... hallo Werner , lieben Dank,
ich teste das gleich mal durch, dachte eben selbst noch über eine Variante nach ...
über eine zusätzliche Zelle ( die wertet ) ob eine Datei neu angelegt wird oder bereits existiert,
Je nach dem nimmt er WB.Save oder WB.SaveAs
In jedem Fall lieben Dank an Dich
Udo

AW: ah, ok, versuche ich gleich mal ...
21.04.2016 14:01:14
Daniel
Hi
dann eventuell so:
SpeicherName = Worksheets("Verwaltung").Range("N14").Value
if ActiveWorkbook.FullName = SpeicherName Then
ActiveWorkbook.Save
Else
ActiveWorkbook.SaveAs Filename:=SpeicherName
End If
dann würde die Meldung nur dann kommen, wenn eine andere Datei mit genau diesem Namen besteht, aber nicht, wenn du die gleiche Datei wiederholt speichern willst.
Gruß Daniel

Anzeige
super ! das kommt meinem Wunsch nahe ...
21.04.2016 14:24:05
udo
vielen herzlichen Dank an Euch, habt mir wiedermal sehr geholfen, danke
LG udo

AW: Gerne u. Danke für die Rückmeldung. o.w.T.
21.04.2016 14:29:49
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige