Zellen anwählen in unterschiedlichen Spalten

[cruzylin]

Hallo,
ich habe mit Hilfe des Makroaufzeichnens es geschafft, über Buttons die Nachkommastellen für mehrere Zellen in einer Spalte zu setzen.
Nur würde ich gerne auch mehrere Zellen in anderen spalten ebenfalls so beeinflussen, ich bekomme es nicht ganz hin.
Hier mal der Code:

Code: Alles auswählen

sub NachKomma0
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 = "$L$15:$L$18"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberFormatValue"
args2(0).Value = 1

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

Mit dieser Syntax bekomme ich das ja ganz gut hin, doch wie muss diese aussehen, wenn ich z.Bsp. in Zelle F25 dieses Format ebenfalls umsetzen möchte ???

[cruzylin]

Danke für die Hinweise an den Zeilen, jetzt konnte ich es mir so basteln, wie ich es haben wollte.

Danke Danke !!!