VBA宏仅在逐步执行时起作用

Question

首先，我不得不说我已经阅读了其他主题并在Google上搜索了此问题，但是我一直无法找到解决方案。

我有一个宏，由多个函数等组成，因此，当我运行它时，它可能在完成之前总共跳了5-6个函数/宏。由于某些原因，它仅在我逐步执行时有效。我尝试添加“ DoEvents”等，现在我很好奇这个错误是否不是更根本的。如果这是一个错误，可能是由于我的编码器级别（初学者）引起的。我尝试声明工作表，表格，所有内容，显式添加的选项等。

编辑：我找到了由于某些原因无法正常工作的代码部分：

Dim Range_Projektinformation As range 
Set Range_Projektinformation = Utveckling_Input.range("Utveckling_Projektinformation") ' Utveckling_Input is the name of the sheet (the name that only can be changed in VBA)
Public myCol As New Collection

A = Range_Projektinformation.Count 'Counts the number of cells in the range

   For i = 1 To A
        Range_Projektinformation.Areas(i) = myCol(i)
        DoEvents
    Next i

如果我在上述循环的正下方添加一个中断（在“ next i”之后），则代码有效。否则，它将无法将集合中的值分配给“ Range_Projektinformation”范围内的单元格。

有什么建议吗？ DoEvents没有什么明显的事情。

无论如何，感谢您的帮助，谢谢！