Funktion InputBox

Zeigt einen Dialog mit einem Eingabefeld und erlaubt dem Benutzer die Eingabe einer Zeichenkette bis zur Bestätigung von OK. Die Eingabe wird in einer Variablen aufgenommen.

Die Anweisung InputBox bietet eine komfortable Möglichkeit der Eingabe über einen Dialog. Die Eingabeebene kann durch die Eingabetaste oder die Schaltfläche OK verlassen werden; die vom Anwender bis dahin eingegebene Zeichenkette wird als Funktionsergebnis zurückgegeben. Wird der Dialog hingegen mit Abbrechen verlassen, liefert InputBox eine Nullzeichenkette ("") zurück.

Syntax:

InputBox (Meldung As String[, Titel As String[, Standard As String[, x_Position As Integer, y_Position As Integer]]]])

Rückgabewert:

String

Parameter:

Meldung: Zeichenkettenausdruck, der im Dialog als Meldung angezeigt wird.

Titel: Zeichenkettenausdruck, der in der Titelleiste des Dialogs angezeigt wird.

Standard: Zeichenkettenausdruck, der im Textfeld des Dialogs als Standard angezeigt wird, wenn keine andere Eingabe übergeben wird.

x_Position: Integerausdruck, der die horizontale Position des Dialogs angibt. Die Position ist eine absolute Koordinate, nimmt also nicht auf das Fenster der Office-Anwendung Bezug.

y_Position: Integerausdruck, der die vertikale Position des Dialogs angibt. Die Position ist eine absolute Koordinate, nimmt also nicht auf das Fenster der Office-Anwendung Bezug.

Ohne Angabe von x_Position und y_Position erfolgt eine Zentrierung des Dialogs. Als Maßeinheit wird Twips verwendet.

Beispiel:

Sub ExampleInputBox

Dim sText As String

    sText = InputBox ("Bitte geben einen Gedanken ein: ","Lieber Benutzer")

    MsgBox ( sText , 64, "Bestätigung des Gedankens")

End Sub