Speichern von Arbeitsblatt

Forumthread: Speichern von Arbeitsblatt
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Speichern von Arbeitsblatt

04.01.2025 10:40:40

mumpitz

Hallo Leute,
zurzeit Speicher ich einen Excel-Arbeitsblatt unter Namen aus verschiedenen Zellen. Nach jedem Mal bekomme ich den Hinweis: „Datei existiert, Überschreiben ja oder nein“. Wie kann ich diesen Hinweis deaktivieren? Die Dateien sollen überschrieben werden.
Vielen Dank für Eure Hilfe.

Sub Speichern_PA()

'

' Speichern_PA Makro

'



'

    ChDir _

        "C:\Users\xx\Desktop\aa\bb\"

    ActiveWorkbook.SaveAs Filename:= _

        "C:\Users\xx\Desktop\aa\bb\" & Range("B3") & " " & Range("B4") & " " & Range("G58") & " " & Range("H58") & ".xlsm" _

        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

'



'

    ChDir _

        "C:\Users\xx\Desktop\aa\cc\"

    ActiveWorkbook.SaveAs Filename:= _

        "C:\Users\xx\Desktop\aa\cc\" & Range("F9") & "\" & Range("F9") & " " & Range("D9") & " " & Range("B4") & " " & Range("G58") & " " & Range("H58") & ".xlsm" _

        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Schau dir dazu mal...

04.01.2025 11:12:06

Case
AW: Schau dir dazu mal...

04.01.2025 11:20:40

RPP63
Habe es gerade...

04.01.2025 11:30:15

Case
AW: Habe es gerade...

04.01.2025 11:35:30

RPP63
AW: Habe es gerade...

04.01.2025 11:52:54

mumpitz
AW: Habe es gerade...

04.01.2025 11:59:22

RPP63
AW: Habe es gerade...

04.01.2025 12:38:00

mumpitz

Schau dir dazu mal...

04.01.2025 11:12:06

Case

Moin, :-)

... den folgenden Link an: ;-)

https://learn.microsoft.com/de-de/office/vba/api/excel.application.displayalerts

Servus
Case

AW: Schau dir dazu mal...

04.01.2025 11:20:40

RPP63

Moin Case!
Dies dürfte nicht funktionieren, ich habe es aber nicht ausprobiert.
DisplayAlerts bezieht sich auf die Application Excel, die Meldung kommt aber wahrscheinlich vom Betriebssystem.
Hier habe ich eine Lösung mittels fso gefunden:
https://www.herber.de/forum/archiv/588to592/591868_Speichern_per_VBA_ohne_Nachfrage_bei_Ueberschreiben.html

Gruß Ralf

Habe es gerade...

04.01.2025 11:30:15

Case

Moin Ralf, :-)

... getestet. Klappt ;-)

Servus
Case

AW: Habe es gerade...

04.01.2025 11:35:30

RPP63

Yepp (*schäm*)!
Jetzt getestet mittels

Sub Speichern()

Application.DisplayAlerts = False

ThisWorkbook.SaveAs ThisWorkbook.FullName

End Sub

Klappt! :-)

AW: Habe es gerade...

04.01.2025 11:52:54

mumpitz

Erstmal Danke Euch,

leider kriege ich es nicht hin. Danke bin wohl zur ... dafür.

AW: Habe es gerade...

04.01.2025 11:59:22

RPP63

Du brauchst doch lediglich
Application.DisplayAlerts = False
als erste Zeile ins Makro schreiben.
Noch eine Anmerkung:
In Deinem winzigen Makro reicht das.
In längerem Code sollte man die Anweisung gezielt vor der erwarteten Meldung ausschalten und danach sofort wieder mittels = True einschalten.