Excel VBA - afslutte for loop

Jeg vil gerne afslutte min "for"-sløjfe, når en betingelse i den er opfyldt. Hvordan kan jeg afslutte min for-loop, når if-begrebet er opfyldt? Jeg tænker på en slags exit i slutningen af min if-erklæring, men ved ikke hvordan det ville fungere.

Dim i As Long
For i = 1 To 50
    Range("B" & i).Select
    If Range("B" & i).Value = "Artikel" Then
        Dim temp As Long
        temp = i
    End If
Next i
Range("A1:Z" & temp - 1).EntireRow.Delete Shift:=xlToLeft
Dragonthoughts
Redigeret spørgsmål 2019ør juni 2019 в 5:10
Programmering
vba excel for-loop
2012ør februar 2012 в 2:29
12 visninger
Løsning

Hvis du vil afslutte din løkke før tid, kan du bruge Exit For.

If [betingelse] Then Exit For

Kommentarer (1)

En anden måde at afslutte en For-loop før tid er ved at ændre loop-tælleren:

For i = 1 To 10
    If i = 5 Then i = 10
Next i

Debug.Print i   '11
For i = 1 To 10
    If i = 5 Then Exit For
Next i

Debug.Print i   '5
Kommentarer (2)