Zitat:

Durch die for i= 0 to ubound Schleife durchläuft er die kompletten Zeilen ja auf einmal durch, bis einschließlich der letzten Zeile. Dies soll aber nicht passieren. Zum Austesten des Codes würde es ja eine Textbox tun, mit der ich einen Wert der Variable für die Actualposition gebe, um zu prüfen ob die Weiterschaltung funktionieren würde.

Private Sub Command1_Click()
    Dim x As Integer
    Dim Abbruch As Integer
 
    Abbruch = CInt(Text1.Text)
 
    For x = 1 To 10
        ' Hier bekommst du alle Zeilen und kannst bei jeder deine Bedingung 
        ' prüfen
        If x = Abbruch Then
            MsgBox "Abbruch in Zeile " & x
            Exit For
            ' Jetzt wird die Schleife verlassen, also bei dir keine weiteren 
            ' Zeilen eingelesten
        Else
            MsgBox "Zeile " & x & " OK"
        End If
    Next
End Sub