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

Bei Bedingung Do/Loop verlassen

Forumthread: Bei Bedingung Do/Loop verlassen

Bei Bedingung Do/Loop verlassen
12.09.2005 11:10:33
Paul
Hallo zusammen,
ich würde gerne wissen ob es möglich ist eine Do/Loop-Schleife bei einer bestimmten Bedingung zu verlassen, ähnlich nach dem Vorbild einer Userform die man ja mit "Exit Sub" verlassen kann.
Danke!
MfG
Paul
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Bedingung Do/Loop verlassen
12.09.2005 11:14:47
Harald
Hallo Paul,
hier mal 2 Beispiele

Sub bedingungsschleife_1()
k = 0
Do
k = k + 1
Loop Until Cells(k, 5) = ""
MsgBox k - 1
'Anzahl der Zellen von oben bis zur ersten Leerzelle
End Sub



Sub bedingungsschleife_4()
'ggf. Leere Zeilen entfernen(Blatt3),Schleife bis 2 aufeinanderfolgende leerzellen
i = 0
Do
i = i + 1
If Cells(i, 4) = "" Then
Rows(i).Delete
End If
Loop Until Cells(i, 4) = "" And Cells(i + 1, 4) = ""
End Sub

Gruß
Harald
Anzeige
Versuchs mal mit Exit Do.. Einfaches Bsp...
12.09.2005 11:17:15
Peter
Servus,
...zum Nachvollziehen.
Option Explicit
Sub t()
Dim i As Integer
Do
For i = 1 To 10
If i = 5 Then
MsgBox "5"
Exit Do
End If
Next
Loop
End Sub

MfG Peter
;

Beliebteste Forumthreads (12 Monate)

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