Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox mit Standard "Nein"

Forumthread: MsgBox mit Standard "Nein"

MsgBox mit Standard "Nein"
Markus
Hallo,
im ganzen Archiv fand ich leider nix.
MsgBox ist ja kein Problem, aber ...
ich möchte den "Nein-Knopf" als Standard.
(So kann ich vermeiden, dass jemand mit der OK-Taste den Ja-Befehl auslöst).
Danke für Antwort
Markus
Sub test()
' der Nein Button soll Standard sein!
If MsgBox("Ja, oder nein", vbYesNo, vbDefaultButton1) = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: MsgBox mit Standard "Nein"
04.08.2010 10:02:21
Holger
Hallo,
probiere mal folgendes aus.
Bei vbYesNo erhält defaultmäßig immer JA den Vorrang.
Wenn du das nicht möchtest, vielleicht geht das:
Buttons:=vbYesNo + vbDefaultButton2
Jetzt sollte der Default auf Button 2, also NO gesetzt werden.
Wenn du vbyesnocancel hast und den default auf cancel möchtest,
musst du vbdefaultButton3 nehmen.
Anzeige
AW: MsgBox mit Standard "Nein"
04.08.2010 10:11:33
Romberg
Hallo,
das Komma ist falsch:
If MsgBox("Ja, oder nein", vbYesNo + vbDefaultButton2) = vbYes Then

AW: MsgBox mit Standard "Nein"
04.08.2010 10:14:19
Holger
Stimmt, ich hatte es für ihn aus meinem Buch abgetippt und mich vertippt ;)
AW: MsgBox mit Standard "Nein"
04.08.2010 10:04:15
ing.grohn
Hallo Markus,
hier die MsgBox-Hilfe:
https://www.herber.de/bbs/user/70883.jpg
Albrecht
Anzeige
Beispielfunktion der Excel-Hilfe
04.08.2010 10:19:25
Matthias
Hallo Markus
Zitat aus der Hilfe (XL2000) in XL2003 sicher gleich
MsgBox-Funktion (Beispiel)
In diesem Beispiel wird die MsgBox-Funktion verwendet, um eine Meldung zu einem schwerwiegenden Fehler in einem Dialogfeld mit den Schaltflächen Ja und Nein anzuzeigen. Nein ist dabei die Voreinstellung. Der von MsgBox gelieferte Wert hängt von der Schaltfläche ab, die der Benutzer wählt. Im Rahmen dieses Beispiels wird angenommen, daß DEMO.HLP eine Hilfedatei ist, in der ein Thema mit der Kontextnummer 1000 vorhanden ist.
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Möchten Sie fortfahren ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "MsgBox-Demonstration" ' Titel definieren.
Hilfe = "DEMO.HLP" ' Hilfedatei
' definieren.
Ktxt = 1000 ' Kontext für Thema
' definieren.
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja"
' gewählt.
Text1 = "Ja" ' Operation ausführen.
Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
End If
mit ein bisschen Eigeninitiative hätte man das auch selbst lösen können ;o)
Gruß Matthias
Anzeige
...So ist es! Jeder bl... sich halt so gut...
04.08.2010 20:09:31
Luc:-?
…er kann, Matthias… ;->>
;

Forumthreads zu verwandten Themen

Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Problem mit MSGBox vbYesNo
Jaffi

Hallo liebes Forum,
gaanz kleines Problem was ich da habe glaube ich.
Bin gerade dabei meinen Wareneingang den letzten Schliff zu verpassen.
Folgender Code macht eigentlich auch das was ich will:
If ..... Then msg = MsgBox(" " & vbNewLine & " Möc...
10.06.2009 11:26:56
Thread-ID: 1080384
5 Beiträge
Anzeige
Kombinationsfeld mit msgbox + vbYesNo
Dietmar

Hallo zusammen
ich benötige ein weiteres Featur in meinem Progrämmle.
Ich habe ein Kombinationsfeld, dem ich eine Liste von Ziffern 1- 20 zugewiesen habe. Das Ergebnis der Auswahl wird in A1 gezeigt.
Dem Kombinationsfeldes habe ich nachfolgendes Makro zugewiesen.
Wie kann ich er...
15.04.2010 16:20:35
Thread-ID: 1152046
5 Beiträge
MsgBox mit ja/nein
Karsten

Hallo,
Bei diesem Code kann ich momentan nur mit ok bestätigen. Kann mir bitte jemand die Variante fürs Abbrechen codieren?
Danke für eure Hilfe
Gruß
Karsten
ActiveCell > 0 Then
MsgBox "Stunde Löschen?"
05.10.2010 09:06:57
Thread-ID: 1180692
6 Beiträge
Zelle gefüllt mit ja und nein
Joachim

Hallo,
bisher hab ich in einer Matrixformel eine Spalte nach dem Wert "ja" durchsucht. In diser Spalte kommt nur "ja" oder "nein" vor. Ich will aber nun nicht Spaltenbereich="ja", sondern als Zellbezug, also Spaltenbereich=F1. In F1 steht dann "ja" drin. Klappt wunderbar.
Was schreib ic...
15.03.2012 15:55:15
Thread-ID: 1255117
3 Beiträge
MsgBox: Abfrage ob Druckbereich ja nein
Bernd

Hallo zusammen,
nachfolgenden Code habe ich gerade mit Recorder aufgezeichnet.
Allerding soll nicht immer alles gedruckt werden sondern, einmal mit Tabelle "KfW" und Tabelle "Tilgungsplan Kfw" einmal ohne. Nun habe ich versucht eine Abfrage (an den mit Kreuzen dargestellten Code) mit Ms...
16.07.2013 11:30:36
Thread-ID: 1322686
7 Beiträge
Anzeige
Einfachen Ja Nein Button
Sandy

Hey,
Ich kenne mich leider nicht mit Makros aus. Würde gern einen Button so haben das sich eine Zelle per Mausklick auf Ja, Nein, und " "(also keine beschriftung) einstellt.
Weiß aber nicht wie:( Könntet ihr mir vllt Helfen?
Liebe Grüße
Sandy
26.07.2013 10:29:49
Thread-ID: 1324258
20 Beiträge
Einmal Nein genügt mit MsgBox
Heinz

Hallo Leute
Ich habe eine UF,mittels Text & ComboBoxen trage ich Werte in verschiedene Sheets für verschiedene Tagen ein.
Funktioniert auch tadellos,Nur wenn die Abfrage kommt
If MsgBox("Wollen Sie den Auftrag wirklich überschreiben.", vbYesNo + vbQuestion, "Überschreiben ?") =...
02.04.2014 18:38:03
Thread-ID: 1355927
9 Beiträge
Anzeige
Tabelle mit Ja/Nein für mehrere Zeile
A. Oeschger
Guten Abend ich habe eine Frage:
ich habe eine Tabelle mit ca. 100 Zeilen mit Teilsummen. Nun möchte ich Ja/Nein-Optionen einfügen. Dh. ich habe diverse Zeilen mit Nein-Optionen. Wenn ich diese Optionen nun nicht möchte, dann möchte ich dass der jeweiligen Betrag bei der Summe nicht dazugezählt...
02.08.2014 21:50:08
Thread-ID: 1373774
5 Beiträge
Msgbox nach "normalem" speichern
Christian

Hallo Ihr Lieben,
wie man es bewerkstelligt mittels eines Buttons die Datei zu speichern, weiß ich. Allerdings benötige ich eine Möglichkeit, dass eine Msgbox nach dem "regulären" speichern auf Datei - Speichern erscheint. Ist das machbar?
Vielen Dank für eure Hilfe.
Christian
...
13.02.2015 08:38:23
Thread-ID: 1409216
7 Beiträge
VBA - Messagebox - Eingabeformular
Neo

Hallo zusammen,
ich bin gestern in die Tiefen der VBA (mittels Youtube u. Google) erstmals eingestiegen, um die Produktionsdatenerfassung über ein Eingabeformular zu standardisieren.
Soweit prima, nun möchte ich jedoch noch die Fehleranfälligkeit reduzieren.
(hierzu siehe mein Einga...
14.08.2015 13:59:04
Thread-ID: 1442348
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

MsgBox mit Standard "Nein" in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11 in Excel, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Erstelle ein neues Modul: Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub test()
   ' Der Nein-Knopf soll Standard sein!
   If MsgBox("Ja, oder nein", vbYesNo + vbDefaultButton2) = vbYes Then
       MsgBox "Ja"
   Else
       MsgBox "Nein"
   End If
End Sub

  4. Führe das Skript aus: Drücke F5 oder wähle Ausführen > Sub/UserForm ausführen, um das Skript zu testen.

Häufige Fehler und Lösungen

  • Falsche Syntax: Achte darauf, dass du die korrekte Syntax verwendest. Ein häufiger Fehler ist das Fehlen des Pluszeichens zwischen den Argumenten. Richtig sollte es heißen:

    If MsgBox("Ja, oder nein", vbYesNo + vbDefaultButton2) = vbYes Then

  • Standard Button nicht gesetzt: Wenn der Standard-Button nicht wie gewünscht funktioniert, stelle sicher, dass du vbDefaultButton2 oder vbDefaultButton3 für andere Standardoptionen verwendest.

Alternative Methoden

  • MsgBox mit Cancel-Option: Wenn du eine Abbruchmöglichkeit integrieren möchtest, kannst du vbYesNoCancel verwenden:

    If MsgBox("Möchten Sie fortfahren?", vbYesNoCancel + vbDefaultButton2) = vbYes Then
   ' Ja-Aktion
ElseIf MsgBox("Möchten Sie wirklich abbrechen?", vbYesNo + vbDefaultButton2) = vbNo Then
   ' Nein-Aktion
End If

  • Access MsgBox: In Access funktioniert die MsgBox ähnlich. Du kannst die gleichen Argumente verwenden.

Praktische Beispiele

  1. Einfaches Ja/Nein Beispiel:

    Sub einfachesBeispiel()
   If MsgBox("Möchten Sie speichern?", vbYesNo + vbDefaultButton2) = vbNo Then
       ' Speicheraktion abbrechen
       MsgBox "Speichern abgebrochen"
   End If
End Sub

  2. Mit kritischer Warnung:

    Sub kritischeWarnung()
   If MsgBox("Wichtige Änderung, fortfahren?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then
       MsgBox "Änderung abgebrochen"
   End If
End Sub

Tipps für Profis

  • Verwende Konstanten: Anstatt die Werte direkt zu verwenden, definiere Konstanten für mehr Klarheit und Wartbarkeit deines Codes.

  • Nachrichten formatieren: Du kannst die Nachrichtenformatierung durch die Verwendung von HTML-Tags in den Nachrichten verbessern, um sie visuell ansprechender zu gestalten (aber beachte, dass dies nur in bestimmten Kontexten funktioniert).

  • Nutzung in Access: Wenn du mit Access arbeitest, kannst du die gleichen MsgBox-Methoden verwenden, um Benutzerinteraktionen zu gestalten.

FAQ: Häufige Fragen

1. Wie setze ich den Standard-Button auf "Ja"? Verwende vbDefaultButton1 in der MsgBox-Funktion:

If MsgBox("Ja oder Nein?", vbYesNo + vbDefaultButton1) = vbYes Then
    ' Ja-Aktion
End If

2. Kann ich die MsgBox anpassen, um mehr als zwei Optionen zu haben? Ja, du kannst vbYesNoCancel verwenden, um eine dritte Option (Abbrechen) hinzuzufügen:

If MsgBox("Fortfahren?", vbYesNoCancel + vbDefaultButton2) = vbCancel Then
    ' Abbrechen-Aktion
End If

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige