VBA - keinen Defaultbutton definieren
Halli Hallo!
Ich möchte erreichen, dass bei einer Buttonauswahl keiner der möglichen Buttons standardmäßig markiert ist.
Beispiel:
Sub test()
MsgBox "Test", vbYesNo + vbDefaultButton2, "Info"
End Sub
--> Hier wird der Button "nein" markiert.
Wie muss der Code aussehen damit weder "ja" noch "nein" markiert wird?
Danke für die Tipps.
Tom
Antwort schreiben
Antwort 1 von nighty vom 02.10.2020, 12:36 Options
hi tom :-)
das geht natuerlich nicht,alternativ
MsgBox "Test", 3 + vbDefaultButton3, "Info"
gruss nighty
Antwort 2 von Tomschi vom 02.10.2020, 13:18 Options
Hallo Night!
Danke für Deinen Support.
... das geht natuerlich nicht --> Schade!
Mein Problem besteht darin, dass meine KollegInnen die
msgbox nicht genaulesen und einfach mit der Entertaste den Defaultbutton übergehen.
Daher dachte ich mir wäre es hilfreich, wenn man die Buttons "entmarkieren" könnte.
Aber vielleicht gibt es für mein Problem auch einen anderen Lösungsansatz. Bin für Vorschläge jederzeit dankbar.
Ciao
Tom
Antwort 3 von coros vom 02.10.2020, 14:04 Options
Hallo TOm,
baue Dir die MessageBox in einer UserForm nach. In einer UserForm kannst Du bestimmen, an welcher Stelle der Focus nach dem Öffnen sich befinden soll.
Alternativ kann man dort bei den CommandButtons und auch bei allen anderen Symbolen der TabStop-Eigenschaft (erhält man, indem man im VBA-Editor die F4 Taste betätigt) den Wert "False" zuteilen. Dann wird der Button nicht aktiviert, auch nicht durch die Enter- oder Tab-Taste.
Somit ist man gezwungen den Button anzuklicken.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von coros vom 02.10.2020, 14:25 Options
Hallo Tom,
ich nochmal. Ich habe Dir mal eine UserForm aus einem meiner Programme heruaskopiert und in eine Beispieldatei eingefügt, die Du Dir
von meiner Homepage herunterladen kannst. Eventuell hilft Dir das ja etwas weiter.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von Tomschi vom 03.10.2020, 07:07 Options
Guten Morgen Oliver!
Danke für die Tipps.
Ich werde mir Deinen Vorschlag mit der UserForm einmal durch den Kopf gehen lassen.
Leider bin ich mit UserForm noch weniger vertraut als mit Msgbox. Aber ich nehme mal an, dass ich von Deinem Beispiel eventuell etwas abkupfern darf. ;-)
Schönes Wochenende!
Tom