OpenOffice.info

Dim  oControler as object
Dim oRow as object
dim lrow as Long
oControler=ThisComponent.CurrentController
'Überprüfen, ob eine Zelle oder ein Zellbereich ausgewählt wurde.
If oControler.Selection.supportsService ("com.sun.star.sheet.SheetCellRange") Then
  lRow= oControler.Selection.RangeAddress.StartRow
  oRow= oControler.ActiveSheet.getRows.getByIndex(lRow)
End if

Hallo Gast,

mit dem Folgenden Code Bekommst du dann die Zeile als Object.
[code]
Dim oControler as object
Dim oRow as object
dim lrow as Long
oControler=ThisComponent.CurrentController
'Überprüfen, ob eine Zelle oder ein Zellbereich ausgewählt wurde.
If oControler.Selection.supportsService ("com.sun.star.sheet.SheetCellRange") Then
lRow= oControler.Selection.RangeAddress.StartRow
oRow= oControler.ActiveSheet.getRows.getByIndex(lRow)
End if
[/code]

Gruß Frieder

lRow=ThisComponent.CurrentController.Selection.CellAddress.Row

Hallo

Mit dem folgenden Code kannst du die Zeilennummer herausbekommen.
[code]
lRow=ThisComponent.CurrentController.Selection.CellAddress.Row
[/code]

Gruß Frieder