Wie öffne ich eine "InputBox"?

Question

Hallo Excel-Freunde

Ich habe mir hier im Forun ein Makro herauskopiert. Um es anwenden zu können soll ich in eine InputBox meine Kriterien eingeben. Wie öffne ich die InputBox?

Gruß
inselgerd

Answer 1

Hallo Gerd,

Option Explicit

Sub test()
Dim intGanzzahl As Integer
intGanzzahl = InputBox("Bitte Ganzzahl eingeben")
MsgBox intGanzzahl
End Sub

in die InputBox wird im Beispiel eine Ganzzahl eingegeben, der Variablen intGanzzahl zugewiesen und durch die MsgBox ausgegeben.

Gruss
Rainer

Answer 2

Halo Gerd,

falls Du nur bestimme Eingaben zulassen willst?
'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)

Gruß Hajo

Answer 3

Hallo Rainer und Hajo

Vielen Dank an euch beiden für die schnelle Hilfe.

Gruß
Gerd