Auswahl abspeichern

[Stephan]

Gibt es hier eine Möglichkeit, durch z.B. ein Makro, sofort alle 20 Werte ausgewählt zu haben?

ja.

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

Gruß
Stephan