Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Rückfrage

Betrifft: Rückfrage von: Dave
Geschrieben am: 13.08.2004 17:46:39

Wie kann ich die Rückfrage beim Speichern, ob die bereits vorhandene Datei ersetzt werden soll, mit yes oder no bestätigen???

  


Betrifft: AW: Rückfrage von: Matthias G
Geschrieben am: 13.08.2004 17:54:35

Hallo Dave,

mit Application.DisplayAlerts = False kommt keine Rückfrage und es wird autom. überschrieben. Anschließend wieder auf True stellen.

Ein autom. "nein" gibt es nicht, du müsstest die Existenz der Datei prüfen:
If Dir(ThisWorkbook.Fullname)<>"" then 'Datei existiert, nicht speichern
Gruß Matthias


  


Betrifft: AW: Rückfrage von: geri
Geschrieben am: 13.08.2004 17:55:10

Erst Guten Tag
dann Wunsch
und wenn möglich noch Grussformel (s. a. Beiträge)

aber es kann mal passieren

Dim strQuest As String
strQuest = MsgBox("Sind Sie sicher ??? schliessen von File" & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub

.... dein Code

gruss geri


  


Betrifft: AW: Rückfrage von: geri
Geschrieben am: 13.08.2004 17:56:59

upps, vor lauter Belehrung, habe ich Frage noch falsch gelesen

gruss geri