Hallo,
wisst Ihr, wie man nachfolgendes Makro effizienter programmieren kann? Wenn
das Makro 1500 Zeilen durchsuchen muss, dauert es richtig lange, bis die
Rechenoperation weitergeht.
Gruß
Uwe
Sub ausblenden()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
varSearch = 0 'Suchwert
Set rngSearch = [AC1:AC1500] 'Suchbereich (Suche in Spalte C nach 0 und blende alle Zeilen mit 0 aus)
With rngSearch
Set c = .Find(varSearch, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddr = c.Address
Do
Rows(c.Row).Hidden = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddr
End If
End With