kann ich über eine Inputbox mehrere Variablen belegen?
Ich möchte nacheinander mehrere Werte in eine Inputbox eingeben und diese Werte sukzessive den Variablen A1, A2, A3 etc. zuordnen.
Geht das?
Gruß
Lars
Sub tt()
Dim N, Anz
Anz = Selection.Rows.Count 'Anzahl der markierten Zeilen
ReDim a(1 To Anz)
For N = 1 To Anz
a(N) = InputBox("Wert", "Eingabe für a(" & N & ")")
Next N
For N = 1 To Anz
MsgBox a(N)
Next N
End Sub
Gruß
Reinhard
Sub ff()
k = 0
Do
k = k + 1
ReDim Preserve variable(k)
variable(k) = InputBox("geben sie etwas ein")
Loop Until variable(k) = ""
End Sub
Gruß gerwas