Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige