Sub endlosFor()

    Dim counter As Long
    Dim maxAnzahl As Long

    counter = 0
    maxAnzahl = 10000

    For i = 12 To 14
        Debug.Print "Durchlauf " & counter
        i = 11
        counter = counter + 1
        ' so ganz endlos wollen wir nicht, deswegen Ausstieg
        If counter = maxAnzahl Then
            MsgBox "Höchstzahl erreicht, Ausstieg"
            Exit For
        End If
    Next i
End Sub