Jede 2. Spalte auswählen bzw. markieren

[Stephan]

Wenn das Blatt in Welchem markiert werden soll, das aktuell aktive Blatt ist, z.B.:

Code: Alles auswählen

Sub Main 
bereiche = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
blatt = ThisComponent.CurrentController.ActiveSheet()
For i = 0 To 255 Step 2
   bereiche.addRangeAddress(blatt.getCellRangeByPosition(i,0,i,65535).getRangeAddress(), False) 
Next i
ThisComponent.getCurrentController().select(bereiche) 
End Sub

Gruß
Stephan