zurückgeben soll 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 und den Inhalt als Zeichenfolge zurückgeben kann.

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

' here is the INPUTBOX-function :

bText = InputBox("Insert in a text", "This accepts any input")

' here is the INPUTBOX-method :

bNumber = Application.InputBox("Insert a number", "This accepts numbers only", 1)

MsgBox "You have inserted :" & Chr(13) & _

bText & Chr(13) & bNumber, , "Result from INPUT-boxes"

End Sub

Die INPUTBOX-Methode hat ein drittes Argument, Type, das entscheidet, was der Benutzer in den INPUTBOX-Dialog einfügen darf.

Der Typ kann einer der folgenden sein:

Typ:

Accepted input:

0   A formula

1   A number

2   Text

4   A logical value (True or False)

8   A cell reference, e.g. a Range-object

16  An error value, e.g. #N/A

64  An array of values

Wenn wir das Makro ausführen, werden die folgenden Eingabefelder angezeigt:

img1

img2

Auf diese Weise können wir das Ergebnis über das Meldungsfeld erhalten.