Række, Opslag

[NeedACoolName]

Hej.

Kan man slå indeholdet i en bestemt række op?
Eksempel:
Ark 1: B14 = "Punkt1" (den værdi jeg gerne vil have overført)
Ark 4: Celle A1=14 (rækkeværdi på Ark 1)
Ark 4: Celle A2: værdien af opslaget = Punkt1
Jeg har forsøgt med en funktion, men det er ikke lykkedes.

[lapont]

Jeg har et lignende problem:
Jeg vil gerne lave en makro, som aktiveres med en knap og som finder col-nr., row-nr. og indhold af den celle, som har fokus.
Jeg ved godt, hvordan jeg laver knap og hvordan man knytter en makro til den. Men jeg har ikke kunnet finde Basic-funktionen, som kan returnere (col,row) og indhold af den celle, som har fokus.
Er der nogen, som ved hvordan man gør?

lapont

[lapont]

Jeg fandt løsninger herr:
http://www.oooforum.org/forum/viewtopic.php?t=451

Her er den:

Sub CurrentSheetAndCell()
Dim oDocument, oSheet as Object
Dim oSelection as Object
Dim oRange as Object
Dim oCell as Object
Dim nRow, nCol as integer
Dim oRangeAddress as New com.sun.star.table.CellRangeAddress

oDocument = StarDesktop.ActiveFrame.Controller.Model
oSheet = oDocument.CurrentController.getActiveSheet() ' get actual sheet

oSelection = oDocument.CurrentController.getSelection
oRangeAddress = oSelection.getRangeAddress ' get actual range / obtiene el rango actual

nRow = oRangeAddress.StartRow 'current row / la fila actual
nCol = oRangeAddress.StartColumn 'current column / la columna actual
oCell = oSheet.getCellByPosition (nCol, nRow)

s$ = oCell.getString()
print "col: " + nCol + ", row: " + nRow + ". Indhold: " + s$
End Sub