Sub inputbox()

    Dim frage_1 As String
    Dim antwort As Integer
    Dim antwort_text As String
    
    frage_1 = "Welcher Aussage stimmst du zu?" _
    & Chr(13) _
    & Chr(13) _
    & Chr(13) _
    & Chr(13) _
    & "< 1 > Eine Kugel Eis sollte weniger als 1 EURO kosten" _
    & Chr(13) _
    & Chr(13) _
    & "< 2 > Eis sollte an jeder Eisdiele umsonst ausgegeben werden" _
    & Chr(13) _
    & Chr(13) _
    & "< 3 > Ist mir egal, ich esse kein Eis" _
    & Chr(13) _
    & Chr(13) _

    antwort = Application.inputbox(frage_1, Default:=1, Type:=1) ' 1: ganzzahl 2: string
        
    If antwort = 1 Then
        antwort_text = "Du hast eine EINS eingegeben"
    ElseIf antwort = 2 Then
        antwort_text = "Du hast eine ZWEI eingegeben"
    ElseIf antwort = 3 Then
        antwort_text = "Du hast eine DREI eingegeben"
    Else
        MsgBox "Bitte geb eine Zahl zwischen 1 und 3 ein ...."
    End If
    
    aktueller_name = ActiveSheet.Name
    ActiveWorkbook.Worksheets(aktueller_name).Range("B10").Value = antwort_text
End Sub