InputBox- verschachteltet Schleifen
20.08.2015 15:51:01
Julia559
ich habe bereits ein Makro, dass aus zwei Schleifen (zuerst Makro1 und danach Makro 2) besteht. Jede Schleife, wird mittels einer InputBox gesteuert - siehe unten.
Das Makro funktioniert, allerdings suche ich nach einer Vereinfachung. Wenn z.b. in der InputBox des Makro1 10000 eingegeben wird, muss ich in der InputBox des Makro2 ebenfalls 10000 mal eine Eingabe vornehmen. Kann ich das Makro2 irgendwie abändern, sodass die Inputbox nur beim ersten Mal erscheint, und die vorgenommene Eingabe dann automatisch in die Inputbox der 9999 weiteren Durchläufe übernommen wird? Ich kann leider die zweite Inputbox nicht weglassen, da die Datei an dieser Stelle weiterhin variabel sein muss.
Schon jetzt vielen Dank für eure Unterstützung.
Liebe Grüße,
Julia
Sub Makro1()
Dim vntRet As Variant
Dim lngI As Long
Do
vntRet = Application.InputBox("Wie viele Wiederholungen? (1 bis 10000)", "Wiederholungen", 5, _
_
Type:=1)
If vntRet = False Then Exit Sub
Loop While vntRet 10000
For lngI = To vntRet
Next
End Sub
Sub Makro2()
Dim vntSam As Variant
Dim i as long
Do
vntSam = InputBox("Wie viele Teilnehmer sollen gezogen werden?")
If IsNumeric(vntSam) Then Exit Do
Loop
For i = 1 To vntSam
Next i
End Sub