Seite 1 von 1
Re: Zeile aus aktueller Zelle ermitteln
Verfasst: Mo, 20.02.2012 13:49
von Frieder D.
Hallo
Mit dem folgenden Code kannst du die Zeilennummer herausbekommen.
Code: Alles auswählen
lRow=ThisComponent.CurrentController.Selection.CellAddress.Row
Gruß Frieder
Re: Zeile aus aktueller Zelle ermitteln
Verfasst: Mo, 20.02.2012 14:06
von 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