Open Office Calc

[Gouv]

Mhm, löschen bzw. ausblenden von Zellen ist ja nicht schwer, aber ich sehe keine einfache Möglichkeit, leere Zellen zu markieren.
Ausser mit Makro, natürlich.
Habe eben ein Makro aufgezeichnet und 'aufgebohrt'

Code:

REM  *****  BASIC  *****


sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$AE$1:$AMJ$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$59:$A$65536"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())

end sub

Damit werden z.B. die Spalten AE bis AMJ (das ist die letzte) und die Zeilen 59 bis 65536 ausgeblendet. Die Werte kann man in den Parametern von args1 und 2 anpassen.

Ich übernehme keine Haftung für das Makro, da ich nach wie vor kaum Ahnung davon habe. (bei mir hat's funktioniert)