Zeile aus aktueller Zelle ermitteln

[Frieder D.]

Hallo

Mit dem folgenden Code kannst du die Zeilennummer herausbekommen.

Code: Alles auswählen

lRow=ThisComponent.CurrentController.Selection.CellAddress.Row

Gruß Frieder

[Frieder D.]

Hallo Gast,

mit dem Folgenden Code Bekommst du dann die Zeile als Object.

Code: Alles auswählen

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

Gruß Frieder