Zeilen ausblenden zu langsam

[Karolus]

Hallo

Code: Alles auswählen

Sub ALLES_aus
    sheet = thisComponent.sheets().getbyname("Tabelle1")
    sheet.getCellRangeByPosition(0,0,0,999).Rows.IsVisible = False
End Sub

Karolus

[TrueColor]

Wenn die Zeilen mal nicht an einem Stück hängen sollten (sortieren, filtern o.ä.), kannst du LockControllers bzw. UnlockControllers verwenden, das schaltet die Bildschirmaktualisierung.

Code: Alles auswählen

' ----------------
'   ScreenUpdate
' ----------------
' Beschreibung: schaltet die Bildschirmaktualisierung ein
' benötigte Macros: keine
'
Sub ScreenUpdate

  oDoc = ThisComponent
  oDoc.UnlockControllers

End Sub

' ----------------
'   ScreenLock
' ----------------
' Beschreibung: schaltet die Bildschirmaktualisierung aus
' benötigte Macros: keine
'
Sub ScreenLock

  oDoc = ThisComponent
  oDoc.LockControllers

End Sub

' -----------
'   DeinMacro
' -----------
' Beschreibung: macht viel Zeug, wo viel Ansicht aktualisiert wird
' benötigte Macros: ScreenUpdate, ScreenLock
'
Sub DeinMacro

    [blah]
    
    call ScreenLock

    [blubb mit viel Zeug, wo viel Ansicht aktualisiert wird]
    
    call ScreenUpdate

End Sub