Dim Datensatzzahl As Integer
Datensatzzahl = 2
 
For i = 1 To Datensatzzahl
           If (i> 1) Then
                    'mach viele wichtige Sachen und ermittel die Datensatzzahl
                    Datensatzzahl_neu = x      'x ist in meinem Testfall gleich 
                    ' 7
                    Debug.Print "Datensatzzahl = " & Datensatzzahl
                    If Datensatz_zahl_neu =Datensatzzahl then 
                        Exit for
                    end if
           End If
Next i

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)