Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige