Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
VBA nur mit Recorder
Hallo Sabrina,
um diesen Fehler aus dem Weg zu gehen habe ich diese Zeile geändert:
For Each Z In Wks.Range("A10:A10000").SpecialCells(xlCellTypeConstants)
in:
For Each Z In Wks.Range("A10:A" & Wks.Cells(Rows.Count, 1).End(xlUp).Row)
Damit ist das Problem vom Tisch. Falls beim Basteln es mal zu einem Fehler kommt, reicht diese kleine Prozedur um die Events wieder einzuschalten, ohne gleich die Datei schließen zu müssen:
Sub EventEinschalten()
Application.EnableEvents = True
End Sub
Ich gehe so gut es geht On Error aus dem Wege.
https://www.herber.de/bbs/user/180635.xlsm
Gruß Uwe