Makro beschleunigen
14.06.2020 20:47:00
Marko
gibt es eine Möglichkeit dieses Makro zu beschleunigen? Aktuell braucht dieses Makro 32-34 Sekunden.
Vielen Dank im Voraus für ein Feedback hierzu.
Sub Berechnen ()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = 14 To 87
If Cells(Wiederholungen, 1).Value = "x" Then
Rows(Wiederholungen).Hidden = True
Else
Rows(Wiederholungen).Hidden = False
End If
Next
End Sub