Schleife und ScreenUpdating
23.11.2021 16:17:43
Christian
nachdem ich jetzt schon so einiges gegoogelt und ausprobiert habe, frage ich dann Euch gerne, ob jemand eine gute Idee hat ... Ich habe eine Schleife, die auf Basis bestimmter Kriterien Zeilen im gleichen Blatt löscht. Siehe Code:
Private Sub EM_B_Blöcke_löschen_Einmal_Click()
'ZUSÄTZLICHE BLÖCKE EINMALZAHLUNG LÖSCHEN
Call AlertsBeginn
Dim i As Long
For i = Range("EM_ZS_Löschen_Neuauswahl").Rows.Count To 10 Step -1
If Cells(i, 1) = "y" Then Rows(i).Delete
Next i
Range("EM_E_EZ_Zahlungstermin").Select
Call AlertsEnd
If Range("EM_M_Löschen_zus_EZ") "z" Then
EM_B_Blöcke_löschen_Einmal.Visible = False
Range("EM_Z_Button_zus_EZ").Rows.Hidden = True
End If
Call AlertsEnd
End Sub
Unter "AlertsBeginn" findet sich ein Allgemeincode:Sub AlertsBeginn()
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
End Sub AlertsEnd ebenda ...
Leider sehe ich ständig die zeilenweise Aktualisierung .... kein Plan, warum. Es wird etwas mit der Schleife zu tun haben. Kann man das irgendwie unterbinden? Sieht blöd aus und dauert lange.
Viele Grüße und vielen Dank
Christian