Office: MsgBox; 'Nein-Button' in 'Weiter-Button' umbenennen?

Hallo zusammen,

hat jemand eine Idee, wie ich folgender MsgBox den Button'Nein' in 'Weiter' umbenennen kann?


Dim a1 As String
a1 = MsgBox("Möchten Sie die Quittungsdaten nur speichern, dann Ja-Button drücken! Direkt zum Druck gelangen Sie über den Nein-Button; Speichervorgang erfolgt dann automatisch! Abbrechen-Button schließt den kompletten Vorgang!", vbYesNoCancel, "Möchten Sie die Quittungsdaten nur speichern?")
If a1 = vbYes Then
Call Speichern1
ElseIf a1 = vbCancel Then
Exit Sub
Else
.........................

Gruß timi

 

Mit der markierten Konstante stellst du ein, welche Buttons in der Messagebox angezeigt werden sollen. Mögliche Werte sind dort u.a. "vbYes", "vbNo" oder auch "vbIgnore".

Das Problem ist, daß es eigentlich keinen Buttons für "Weiter" gibt, wobei man "Ignorieren" von der Bedeutung her noch am ehesten dafür benutzen könnte. Das wäre dann aber eher eine Frage, wie man den Text in der Messagebox anpasst.

Wenn Du im VBA-Editor bist, platziere mal den Cursor auf das Wort "MsgBox" und drücke dann F1. In der erscheinenden Hilfe siehst Du unter "Das Argument buttons hat die folgenden Einstellungen:" mit den Werten 0 bis 5 die möglichen Button-Kombinationen, die dort angezeigt werden können.

Gruß, Michael

 

Vielen Dank! Dein Lösungsvorschlag scheint mir auch das Beste zu sein!

Jedoch.......

Bin ich zu blöd.......... oder?

Dim a1 As String
a1 = MsgBox("Möchten Sie die Quittungsdaten nur speichern, dann 'Ja' drücken! Mit'Ignorieren' werden Sie direkt zum Druck weitergeleitet; Speichervorgang erfolgt dann automatisch während des Druck-Ablaufs! 'Abbrechen' schließt den kompletten Vorgang!", vbYesIgnoreCancel, "Möchten Sie die Quittungsdaten nur speichern?")
If a1 = vbYes Then
Call Speichern1
ElseIf a1 = vbCancel Then
Exit Sub
Else
..........................

Jetzt erscheint:
Fehler beim Kompilieren....etc.

Watt issen jetzt los, kennt mein Exelchen das Wort 'Ignore' nicht?
Excel ignoriert dieses Wort einfach!

Gruß timi

 

Naja, lies nochmal:

Du hast also nicht die Möglichkeit, mal eben beliebige Buttons zusammenzustellen, sondern bist auf die 6 Möglichkeiten, die dort aufgelistet sind, angewiesen.

Das "Ignore" taucht dort nur in der Kombination "VbAbortRetryIgnore" auf. Inwiefern auf die Buttons "Abbruch, Wiederholen, Ignorieren" eine passende Frage in Deiner Messagebox formuliert werden kann, kann ich Dir jetzt nicht sagen.

Ein anderer Ansatz wäre aber vielleicht, 2 Messageboxen hintereinander zu schalten, also nicht zu versuchen, alles in einer abzufrühstücken.

Code:

[Klick auf "Quittungen"]

msg "Speichern?" - ja, nein, abbruch
ja: speichern
nein: %

nicht abbruch: msg "Drucken?" - ja, nein
ja: drucken
nein: %

Gruß, Michael