Anonymní profil natech – Programujte.com

Tak jsem se snažil to vyřešit tímto způsobem:

  For i_b = 6 To 2000
        On Error GoTo fnnn
        i_temp = Cells(i_b, 1)
        On Error GoTo 0 'ruší ignoraci chyb
        GoTo labelk
fnnn: 'zruší chybu
    Err.Number = 0
    i_temp = -1
    On Error GoTo 0
labelk:
-nějaký další kod
Next i_b

Dojde však k tomu, že při druhém průchodu to vyhodí chybu. Ošetření chyby nefunguje.