Application.ScreenUpdating = False
For i = 20 To 45
Worksheets("Tab_Ausg").Cells(i, 1) = ""
Worksheets("Tab_Ausg").Cells(i, 2) = ""
Next i
,dabei ist i als byte definiert.
Die Fehlermeldungen kommen komischerweise jedoch nicht immer sondern nur ab und zu - ohne erkennbares Muster - und auch nur bei einer Stelle der Anwendung.
An anderen Stellen im Code funktioniert eine Leicht abgewandelte Form dauerhaft stets ohne Probleme.
Ich hatte mir leider nicht aufgeschrieben was die anderen Fehlermeldungsanzeigen sagten, aber erinnern kann ich mich nur an "Index außerhalb des gültigen Bereichs", wobei i laut lokalfenster 20 war. Leider konnte ich-vorführeffektmäßig-beim schreiben dieses Beitrages auch keine Fehlermeldung erzeugen, obwohl ich dies knapp 100 mal versucht habe-normal tritt es jedes 3. bis 5. mal auf, wenn man den code ausführt