Wenn Sie Informationen vom Benutzer erhalten möchten, können Sie die INPUTBOX-Funktion verwenden.
Diese Funktion zeigt ein Dialogfeld an, in dem der Benutzer alles ausfüllen kann und den Inhalt als Zeichenfolge zurückgibt.
Manchmal möchten Sie entscheiden, was der Benutzer ausfüllen soll, anstatt Informationen zu akzeptieren. Dann verwenden Sie die INPUTBOX-Methode:
Sub DecideUserInput() Dim bText As String, bNumber As Integer ' hier ist die INPUTBOX-Funktion : bText = InputBox("In einen Text einfügen", "Dies akzeptiert jede Eingabe") ' hier ist die INPUTBOX-Methode : bNumber = Application. InputBox("Insert a number", "Dies akzeptiert nur Zahlen", 1) MsgBox "Sie haben eingefügt:" & Chr(13) & _ bText & Chr(13) & bNumber, , "Ergebnis aus INPUT-Feldern" End Sub
Die INPUTBOX-Methode hat ein drittes Argument, Type, das entscheidet, was der Benutzer in den INPUTBOX-Dialog eingeben darf.
Typ kann einer der folgenden sein:
Typ :
Akzeptierte Eingabe: 0 A Formel 1 Eine Zahl 2 Text 4 Ein logischer Wert (Wahr oder Falsch) 8 Ein Zellbezug, z.B. a Range-Objekt 16 Ein Fehlerwert, z.B. #N/A 64 Ein Array von Werten
Wenn wir das Makro ausführen, sehen wir die folgenden Eingabefelder:
Auf diese Weise können wir das Ergebnis über die Messagebox erhalten.