MOF Meister Registrierung: 28. 01. 2002 Ort: 01458 Ottendorf-Okrilla Demo-Datenbank - MsgBox mit eigenen Button-Beschriftungen Hallo zusammen, der Beitrag ist entstanden, da mir das Thema empfohlen wurde und ich auch denke das es doch Einige interessiert, weil doch die Frage immer wieder gestellt wird. Problemstellung: Es ist auf herkömmlichen Weg nicht möglich, die Button-Beschriftungen der Message-Boxen zu ändern. Die gängigste Methode diese Beschränkung zu umgehen liegt in der Erstellung eines Formulars mit benutzerdefinierten Buttons. Demo-Datenbank - MsgBox mit eigenen Button-Beschriftungen - MS-Office-Forum. Nun ist aber sehr mühevoll für jeden Einsatz eine eigenes Formular zuerstellen, mit 3 oder 4 oder 5 Buttons, Beschriftung jedesmal anders, noch ein anderes Icon usw. Vor einiger Zeit wurde auf " ein Bsp von unbekanntem Autor vorgestellt (Alle Rechte liegen trotzdem beim Autor), das alle diese Punkte den Aufwand auf ein Minimum reduziert, da für alle Einstellungen ein Formular verwendet wird. Gefüllt wird es durch eine Function der alle benötigten Werte übergeben wird.
Falls die " VBS MsgBox " mit " ja " beantwortet wurde, also " vbYes " als Rückgabewert kommt, zeigen wir eine weitere Nachricht an. Dim x x = MsgBox ("Eine beliebige Nachricht", vbYesNo OR vbQuestion, "Der Titel") If x = vbYes Then MsgBox "Es wurde JA gedrückt! " In der folgenden Tabelle findest Du die möglichen Button – Konstanten der MsgBox -Funktion aus Visual Basic Script.
Anstelle der Konstanten vbYesNo und vbQuestion können Sie auch die entsprechenden Werte 4 und 32 verwenden. 3. Wenn der Benutzer auf die Schaltfläche Ja klickt, leert Excel VBA das Blatt. Wenn der Benutzer auf die Schaltfläche Nein klickt, passiert nichts. Fügen Sie dazu die folgenden Codezeilen hinzu. Wenn Antwort = vbJa Dann earContents Anders Ende Wenn 4. Klicken Sie in dem Blatt auf die Befehlsschaltfläche. Excel gibt nicht leere Zellen aus einem Bereich zurück 5. Klicken Sie auf Ja. Vba msgbox beispiele free. Ergebnis: 2/3 abgeschlossen! Erfahren Sie mehr über msgboxes > Gehe zum nächsten Kapitel: Arbeitsmappe und Arbeitsblattobjekt
kann ich auch die Große der Box bzw des eingabe feldes angeben?? thx enrico Nein, das macht VBA automatisch, du kannst aber die Größe durch Zeilenumbrüche Chr(10) und Leerzeichen Space(22) (22 ist die Anzahl der Leerzeichen)künstlich aufblähen, ist aber recht ungenau. Excel-Beispiele zum Thema "MsgBox mit Eingabefeld" MsgBox mit Werten aus geschlossener Arbeitsmappe Überprüfung auf Übereinstimmung und Anzeige in MsgBox Internetdaten abrufen und in MsgBox anzeigen Textdatei auslesen und in MsgBox anzeigen Von Eingabe- zu Eingabefeld springen Cursor nur in Eingabefeldern bewegen
Entsprechend der Antwort können wir beliebige Befehle ausführen. Was kann ich erreichen? Es ist möglich ein Pop-up erscheinen zu lassen. Wie erstelle ich einen Zeilenumbruch? 'Inhalt1' & vbCrLf & 'Inhalt2' Wie erstelle ich eine yes no Box? MsgBox('Inhalt', vbYesNoCancel), darauf mit Select Case die Antworten für die Fälle bestimmen.