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
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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen