Allgemeine Zeitung Mainz Stellenanzeigen
MsgBox mit Eingabefeld Informationen und Beispiele zu den hier genannten Dialog-Elementen: Excel-Version: 9. 0 (Office 2000) hallo leute mal ne kurze frage, kann ich eine msgbox (oder etwas ähnliches) anzeigen lassen in der sich ein "eingabefeld" befindet welches sich zum beispiel auf die Zelle A12 wenn ich in das eingabefeld in der msgbox was eintrage soll es in A12 reingeschrieben werden. ist das überhaupt möglich??? thx Enrico Hallo Enrico! Verwende eine InputBox. Vba msgbox beispiele connection. Syntax: Rückgabewert= InputBox("Eingabeaufforderung", "Titel", Vorgabe) Vorgabe kann auch entfallen Beispiel: Wert= InputBox("Bitte geben Sie ihren Wert ein! ", _ "Wertübertragung") If Wert <> "" Then Sheets("Tabelle1")("A12") End If Schau dir mal inputbox an, noch besser: putbox Ist möglich, bau Dir Dein Eingabefeld z. B. in einer Variablen zusammen und übergebe diese Variable an den entsprechenden Parameter der msgbox. MsgBox(prompt[, buttons] [, title] [, helpfile, context]) z. an den Parameter prompt oder title Also das klapp ja gut.
Neben dem Fokus in diesem Beitrag auf die einfache MsgBox, kann sich auch wie so oft ein Blick nach links und rechts rentieren. Sperren, oder nicht sperren? Größtenteils sperren Dialoge den die übrige Anwendung, um die Aufmerksamkeit des Nutzers bei sich zu halten, man betitelt diese Dialog auch als modale Dialoge. Vba msgbox beispiele 1. Es gibt jedoch vermutlich auch Aufgabengebiete, in denen es durchaus sinn macht, so genannte non-modale Dialoge zu verwenden, Welche die Anwendung nicht sperren. Eine gängige Anwendungsmöglichkeit eine nicht-modalen Dialogs wäre eventuell die Eingabe eines Termins. Designer & Tools Durch das Folgen der Designer-Tools bestimmter Standards, sollen sich Nutzer möglichst schnell und intuitiv in den Oberflächen zurechtfinden. Meistens befinden sich in der Mitte der Dialoge die Eingabefelder, Welche durch passende Beschriftungen gekennzeichnet sind. Die Eingabefelder werden gängigerweise durch Designer -Toolkits zusammengestellt und optimal angeordnet. Am unteren Ende des Dialogs befinden sich die primären Handlungen, darunter meist das Bestätigen, oder das Abbrechen des Dialoges.
Zur Vereinfachung kann der X- und Y-Wert direkt im Tabellenblatt angegeben werden, siehe Abbildung1. Damit entfällt die Anpassung des Codes bei Änderung der beiden Werte. Abb. 1 Gestartet wird die Funktion über die Schaltfläche "MessageBox" aufrufen. Damit die Funktion korrekt aufgerufen wird, müssen Sie der Schaltfäche folgenden Code zuweisen. Vba msgbox beispiele data. Sub Aufruf_MsgBox() Dim x Dim y With ActiveSheet '** Prüfen, ob gültige X und Y Werte eingetragen wurden If IsNumeric(("B4")) And IsNumeric(Range("B5")) Then x = ("B4") y = ("B5") dummy = msg("Ich bin positioniert wurden", vbInformation, "Hinweis", x, y) Else MsgBox "Erfassen Sie bitte gültige numerische X- und Y-Achsen-Werte", vbCritical, "Hinweis" ("B4") = 100 ("B5") = 100 End With End Sub Sobald Sie nun auf die Schaltfläche klicken, wird die UserForm nahe am rechten Rand und im oberen Drittel des Fensters ausgegeben, siehe Abbildung 2. Abb. 2 Die Beispieldatei können Sie über den folgenden Link herunterladen. Drucken E-Mail
Excel VBA: Msgbox nutzen Im nächsten Praxistipp haben wir die 5 besten Addins für Excel zusammengefasst. Aktuell viel gesucht Aktuell viel gesucht
MsgBox-Rückgabewerte vbOK Auf Schaltfläche OK geklickt vbCancel Auf Schaltfläche Abbrechen geklickt vbAbort Auf Schaltfläche Beenden geklickt vbRetry Auf Schaltfläche Wiederholen geklickt vbIgnore Auf Schaltfläche Ignorieren geklickt vbYes 6 Auf Schaltfläche Ja geklickt vbNo 7 Auf Schaltfläche No geklickt Siehe auch Konstanten (Visual Basic for Applications) Support und Feedback Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.