Do While / Loop geht nicht Schnalle das nicht!
16.09.2005 13:34:46
MartinM
Wo habe ich jetzt wieder den Knopf in der Leitung? Hatte immer gedacht das mit dem VBA könnte ich schon richtig gut, aber weit gefehlt.
Brauche wieder einmal Eure Hilfe.
Mein Loop geht nicht wie von mir angedacht!
Hier mein Test Script:
Sub TestLoop()
Dim Body As String
Dim sStop As Integer
Dim sCount As Integer
'If Body = "" Then
sStop = 0
sCount = 0
Do While sStop = 7
sCount = sCount + 1
Body = Body & InputBox("Bitte Textzeile Eingeben!", "Textbox " _
& sCount & " Zeile") & vbLf
sStop = MsgBox("Eine weitere Zeile eingeben?", vbYesNo, "Weiter?")
Loop
'End If
End Sub
Danke und einen mächtigen
VBA-Gruss MartinM
Der Weg ist das Ziel!
Anzeige