Finde meinen Fehler nicht

[Micha2005]

Hallo, 

ich hab diese Funktionen schon oft genutzt finde aber meinen Fehler nicht...
bekomme einen Syntax Fehler.

Außerdem hab ich gelesen das man die Meldung nach dem Speichern unterdrücken kann...
dass es eben schon vorhanden ist... kann mir da vielleicht jemand weiterhelfen?

Sub Speichern()
    ThisWorkbook.SaveAs "D:\Mehr VBA Kapitel 5.xlsm"
    MsgBox "Auf dem USB Stick gesichert!"
    ThisWorkbook.SaveAs "C:\VBA 2026\Mehr VBA Kapitel 5.xlsm"
    MsgBox "Auf der Festplatte gespeichert." & vbCrLf & MsgBox "Viel Spaß noch"
End Sub

Gruß Micha

---

Hab den Fehler doch gefunden, nach vbCrLf war ein MsgBox zuviel da...

Das mit dem unterdrücken der Meldung würde mich trotzdem noch interessieren.

Gruß Micha

[Gast 123]

Hallo

Code:

Sub aaa()
Application.DisplayAlerts = False  'abschalten

'  hier dein Makro

Application.DisplayAlerts = True  'einschalten
End Sub

mfg Gast 123

[Micha2005]

Hat funktioniert, danke dir.

[losgehts]

Hallo,

ich - jeh nach Einsatzzweck und Können - eher ein Fan von:

Code:

Application.DisplayAlerts = False  'abschalten

'  hier lediglich die Zeile, die Alerts hervorruft.

Application.DisplayAlerts = True  'einschalten

Damit passiert dir nicht so schnell der Fehler, dass du deinen Code z.b. ergänzt und dann keine Alerts bekommst, die du eigentlich gebraucht hättest.

Grüße, Ulrich