InputBox....Array......MsgBox?????

[NoMax]

wie kann ich etwas eingeben, was in einem array gespeichtert wird, und hinterher alles in einem fenster/msgbox, ausgegeben wird??
man soll solange etwas eingeben können, bis man ´ende´ eingibt!!!

[netzbazille]

Nur mal so als Anregung:

Dim sEingabe As String
Dim sInhalt() As String
Dim lCount As Long

´Eingabe
lCount = 0
Do
sEingabe = InputBox("Text eingeben (´ende´ für beenden eingeben)", "Testeingabe")
If Cancel = True Then Exit Do
If LCase$(sEingabe) = "ende" Then Exit Do
ReDim Preserve sInhalt(lCount)
sInhalt(lCount) = sEingabe
lCount = lCount + 1
Loop

´Ausgabe
Text1.Text = ""
For lCount = LBound(sInhalt) To UBound(sInhalt)
Text1.Text = Text1.Text & sInhalt(lCount) & vbCrLf
Next

Gruß

[NoMax]

hallo, danke erstmal, aber nachdem ich ende eingegeben habe, bekomme ich einen laufzeitfehler ´424´ mit der bemerkung "Objekt erforderlich"

kannst du mir weiterhelfen?

[fabian ackle]

heisst deine Textbox ´Text1´? falls nicht könnte es daran liegen.

greetz

dubious

[NoMax]

was meinste mit textbox??

[fabian ackle]

damit meine ich das Element TextBox von VisualBasic.
andere Frage: geht es überhaupt um VB?
oder willst du die ausgabe via MsgBox?

greetz

dubious

[NoMax]

ja es geht um VB.
und die ausgabe wollte ich mit MsgBox. kannst mir weiterhelfen?

[fabian ackle]

ich hoffe es, ändere deine ausgabe mal folgendermassen:

dim txt as string
´Ausgabe
txt = ""
For lCount = LBound(sInhalt) To UBound(sInhalt)
txt = txt & sInhalt(lCount) & vbCrLf
Next
msgbox txt


greetz

dubious

[NoMax]

jo, thx. so funzt alles!! 8)