Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleifendurchlauf begrenzen

Forumthread: Schleifendurchlauf begrenzen

Schleifendurchlauf begrenzen
28.06.2002 12: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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schleifendurchlauf begrenzen
28.06.2002 12:41:59
Hajo_Zi
Hallo Jos

For I=1 Zo 1000

Next I

Gruß Hajo

Re: Schleifendurchlauf begrenzen
28.06.2002 12:42:28
Hajo_Zi
Kleiner Fehler

To 1000

Hab mich glaub fasch ausgedrückt
28.06.2002 12: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

Anzeige
Re: Hab mich glaub fasch ausgedrückt
28.06.2002 14: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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige