Sub inputbox_benutzen()
    Dim ganzzahl As Integer
    Dim y As Integer
    'Type:
    '1   Zahl
    '2   Text (Zeichenfolge)
    ganzzahl = Application.InputBox("Bitte Zahl eingeben:", Default:=1, Type:=1)
    y = ganzzahl * 2
    ActiveWorkbook.Worksheets("page_G").Range("C9").Value = ganzzahl
    ActiveWorkbook.Worksheets("page_G").Range("C10").Value = y

    zeichenkette = Application.InputBox("Bitte Wort:", Default:="??", Type:=2)
    ActiveWorkbook.Worksheets("page_G").Range("C12").Value = zeichenkette
    
    MsgBox "Tschüss"
End Sub