Messagebox übergehen
02.05.2021 18:38:40
Peter
Ich habe rund 900 xlsm-Dateien, in denen ein Zellwert sowie die Fußzeile geändert werden muss.
Das entsprechende VBA-Skript dazu habe ich erstellt, funktioniert bei den "Testdateien" auch.
Falls möglich würde ich jedoch gerne noch eine Messageboxabfrage übergehen, um den Prozess zu beschleunigen und "unbeobachtet" laufen lassen zu können.
Wenn eine Datei gespeichert werden soll, erscheint die Abfrage, ob die Kontaktdaten geändert wurden. Erst bei Klick auf "ja" wird die Datei gespeichert (und ggf. auch geschlossen).
Im Moment müsste ich bei jeder Datei mit "ja" bestätigen, damit die nächste Datei geöffnet, geändert, gespeichert und geschlossen wird.
Lässt sich die nachstehende Abfrage im Rahmen der "Massenänderung" umgehen?
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Kontaktdaten geändert?", vbQuestion + vbYesNo, "Speichern") = vbNo Then Cancel = True Else Cancel = False
End Sub
Mit freundlichen Grüßen
Peter