Funktioniert auch, nur danach werden Zellen mit bedingter Formatierung nicht mehr aktualisiert.
Erst nach dem Neustart von Excel funktionieren die bedingten Formate wieder.
'
'
'Geschwindigkeitsoptimierung einschalten
Dim berechn_modus, aktual_modus
Public Function speed_ein()
berechn_modus = Application.Calculation
aktual_modus = Application.ScreenUpdating
Application.Calculation = xlManual
Application.ScreenUpdating = False
End Function
'
'Prüfprogramm.....
'
'
'Geschwindigkeitsoptimierung ausschalten
Public Function speed_aus()
Application.Calculation = berechn_modus
Application.ScreenUpdating = aktual_modus
End Function