Schleifendurchlauf begrenzen

Forumthread: Schleifendurchlauf begrenzen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schleifendurchlauf begrenzen

28.06.2002 14:34:13

Joachim S

Kann man eine FOR Next Schleife auf z.B. 1000 Durchläufe begrenzen?
Wenn ja wie?

Vielen Dank für eure Bemühungen
Grüße vom Bodensse
Josi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Schleifendurchlauf begrenzen

28.06.2002 14:41:59

Hajo_Zi
Re: Schleifendurchlauf begrenzen

28.06.2002 14:42:28

Hajo_Zi
Hab mich glaub fasch ausgedrückt

28.06.2002 14:57:41

Joachim S
Re: Hab mich glaub fasch ausgedrückt

28.06.2002 16:38:14

Joachim K

Re: Schleifendurchlauf begrenzen

28.06.2002 14:41:59

Hajo_Zi

Hallo Jos

For I=1 Zo 1000

Next I

Gruß Hajo

Re: Schleifendurchlauf begrenzen

28.06.2002 14:42:28

Hajo_Zi

Kleiner Fehler

To 1000

Hab mich glaub fasch ausgedrückt

28.06.2002 14:57:41

Joachim S

Habe folgende Schleifen, die wenn eine Bedingung nicht erfüllt ist wieder bei Start beginnt, wie kann ich also das gesamte Ding auf z.B. 1000 Durchläufe begrenzen.

Tut mir leid, dass das erste posting etwas undeutlich war

Gruß Josi

Re: Hab mich glaub fasch ausgedrückt

28.06.2002 16:38:14

Joachim K

Hallo ,
versuchs mal so :
Zähler = 0
start:
If Zähler = 1000 then End Sub
Call entfernen12
Range("d1:d" & ende).Copy Range("E1")
For j = 2 To anz_grmgl
For k = 1 To anz_gruppen
Columns(5).Sort key1:=Range("e1"), order1:=xlAscending
ende1 = Range("e" & Rows.Count).End(xlUp).Row + 1
zzahl = Int((ende1 - 1) * Rnd + 1)
Mname = Range("e" & zzahl)
Range("e" & zzahl).Clear
Range("e" & j).Offset(5, k * 2) = Mname

Next k
Next j
Call Aufteilen12
'Worksheets("Auslosung").UsedRange.Columns("ag:cs").Calculate
If Cells(21, 82) = FALSCH Then Zähler = Zähler +1 : GoTo start

Gruß Joachim