Archiv des LibreOffice- und OpenOffice.org-Wiki

[ÜberSicht] [TitelIndex] [WortIndex] [SeiteFinden

1. Zeigt Zeile und Spalte des Cursors in der Tabellenkalkulation

1.1. StarOffice ab Version 6/ OpenOffice.org

Rem Zeile ermitteln in der sich der Cursor befindet
function getRow() as String
        dim oSel as Object
        dim oDesktop as Object
        dim oAdr as Object

        oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
        oSel = oDesktop.CurrentFrame.Controller.Selection
        oAdr = oSel.CellAddress
        getRow = oAdr.Row
end function

Volker Kohaupt 09.03.2004

Rem Spalte ermitteln in der sich der Cursor befindet
Rem gibt die spalte in 0,1,2,3 zurück also nicht A,B,C etc.
function getColumn() as String
        dim oSel as Object
        dim oDesktop as Object
        dim oAdr as Object

        oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
        oSel = oDesktop.CurrentFrame.Controller.Selection
        oAdr = oSel.CellAddress
        getColumn = oAdr.Column
end function

Volker Kohaupt 09.03.2004

1.2. StarOffice bis Version 5.2

Rem Zeile ermitteln in der sich der Cursor befindet
Rem Gibt die Zeilennummer in 0,1,2,3,... zurück
function getRow() as String
        dim oSel as Object
        dim oDesktop as Object
        dim oAdr as Object
        dim Version as String

        if GetSolarversion > 517 then
                        Version = "com.sun.star" 'SO 5.2 und höher
                else
                        Version = "stardiv.one"  'SO 5.1 & SO 5.1a
                end if
                oDesktop = createUNOService( Version & ".frame.Desktop" )

        oSel = oDesktop.Activecomponent.CurrentController.Selection
        oAdr = oSel.CellAddress
        getRow = oAdr.Row
end function

Klaus Osigus 13.09.2004

Rem Spalte ermitteln in der sich der Cursor befindet
Rem gibt die spalte in 0,1,2,3 zurück also nicht A,B,C etc.
function getColumn() as String
        dim oSel as Object
        dim oDesktop as Object
        dim oAdr as Object
        dim Version as String

        if GetSolarversion > 517 then
                        Version = "com.sun.star" 'SO 5.2 und höher
                else
                        Version = "stardiv.one"  'SO 5.1 & SO 5.1a
                end if
                oDesktop = createUNOService( Version & ".frame.Desktop" )

        oSel = oDesktop.Activecomponent.CurrentController.Selection
        oAdr = oSel.CellAddress
        getColumn = oAdr.Column
end function

Klaus Osigus 13.09.2004

KategorieMakro KategorieCalc


LizenzBedingungen | AnbieterKennzeichnung | DatenschutzErklärung | Stand: 2013-04-28