OpenOffice.info

' ----------------
'   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

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

[code]' ----------------
' 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
[/code]

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

Hallo

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

Karolus