Userform.Visible und ScreenUpdating

Option Explicit

'Bei Problemen mit
  'Userform.Visible = False bzw. True
'und
  'ScreenUpdating = False bzw. True
'probiert das mal aus

Sub cmdOK_Click()
  Userform.Visible = False
  DoEvents
  ScreenUpdating = False
  '... Weitere VBA-Anweisungen
End Sub

'...
Userform.Visible = True
For I = 1 To AnzSätze
  DoEvents
  '... Weitere VBA-Anweisungen
Next I
'...