German Wie bricht man eine Schleife vorzeitig ab ?

[hutznobnd]

While_Break, For_Break,...

so etwas in etwa !?

Wie bricht man jetzt eine Schleife im Prozess ab, um an einer anderen Stelle fortzusetzen.

Bsp:

Do While quit = 1
    quit = 0
    num = (Rnd(0,11))+1
      For j = 0 To i
      If j <> i Then
        If number(j) = num Then
            j = i                             'Die Zeile ist nur Mist, hier For_Break !!! ????
            quit = 1
                                              'Hier Schleife abbrechen
        End If
      End If
    Next
    Loop

Danke!

 

[klaus]

Mit Exit

quit = 0
Do While quit = 0
   num = (Rnd(0,11))+1
   For j = 0 To i
     If j <> i Then
       If number(j) = num Then
         j = i                   'Die Zeile ist nur Mist, hier For_Break !!! ????
         quit = 1
         Exit                   'Verlässt die For/Next Schleife
       End If
     End If
   Next
Loop

Do While quit = 1 kommt mit komisch vor, denn die While/Loop Schleife wird nie durchgeführt ?

Beste Grüsse.