Re: Auswahl abspeichern
Verfasst: Mi, 14.09.2016 11:54
ja.Gibt es hier eine Möglichkeit, durch z.B. ein Makro, sofort alle 20 Werte ausgewählt zu haben?
z.B.:
Code: Alles auswählen
Sub Main
Dim a(4)
bereiche = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
blatt = ThisComponent.CurrentController.ActiveSheet
a(0) = "A1:A10"
a(1) = "C1:C10"
a(2) = "D8"
a(3) = "F1"
a(4) = "E2:E4"
'usw.
for i = LBOUND(a()) To UBOUND(a())
bereiche.addRangeAddress(blatt.getCellRangeByName(a(i)).getRangeAddress(), False)
Next i
ThisComponent.getCurrentController().select(bereiche)
End Sub
Stephan