Eigenleben von For ... Next Schleifen?

Sub Demo
Dim I as Integer, Imin as Integer, Imax as Integer
Dim J as Integer
Dim Target as Range
For I = Imin To Imax
Set Target = ThisWorkbook.Sheet(...).Range("Bereich" & Format(I, "00"))
'Die Bereiche in Sheet(...) sind durch Namen definiert.
For J = 1 To 2
If J = 1 then
Target(5, 109).Value = 1
'MsgBox(Target(5, 109).Value) ergibt tatsächlich "1"
End If
If J = 2 then
Target(5, 150).Value = 2
'MsgBox(Target(5, 150).Value) ergibt tatsächlich "2"
End If
Next J
'MsgBox(J) ergibt hier "3"
Next I
End Sub