Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige