Methode Application.InputBox mit VBA in Microsoft Excel

Die Excel-Methode Application.InputBox kann Texte, Zahlen, Formeln oder Zellbereiche abfragen. Das Argument Type bestimmt den zulässigen Rückgabetyp; beispielsweise steht 1 für Zahl, 2 für Text und 8 für einen Zellbezug. Wird Abbrechen gewählt, gibt die Methode False zurück.

Sub ZahlAbfragen()
    Dim antwort As Variant
    antwort = Application.InputBox( _
        Prompt:="Bitte eine Zahl eingeben:", _
        Title:="Zahl erfassen", Type:=1)
    If VarType(antwort) = vbBoolean And antwort = False Then
        Exit Sub
    End If
    If Not IsNumeric(antwort) Then
        MsgBox "Die Eingabe ist keine Zahl."
        Exit Sub
    End If
    ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = CDbl(antwort)
End Sub

Bei Type:=8 ist das Ergebnis ein Range-Objekt und wird mit Set zugewiesen. Für Formeln in der Sprache der Nutzenden ist die passende lokale Formeleigenschaft zu berücksichtigen. Die Methode ist von der VBA-Funktion InputBox zu unterscheiden.

Da mehrere Typen einen Boolean-Wert liefern können, sollte die Abbruchprüfung zum gewünschten Typ passen. Testen Sie insbesondere Abbrechen, ungültige Eingaben und leere Werte.

Quellen und Prüfstand

Inhaltlich überarbeitet am 2026-10-13. Cancel-Rückgabe und Variant-Prüfung nachvollziehbar gemacht.

• Microsoft Learn: Application.InputBox method