Sub mm()
    Dim sz As Integer
   
    For sz = 1 To 1500
        Range("DL2") = sz
        If Range("DK1") = 1 Then
            MsgBox "Megvan: " & sz: Exit Sub
        End If
    Next
    MsgBox "Nincs meg"
End Sub