OpenOffice.info

Hallo Gast Torsten,

uhhps da hat der "R" :) ja schon lange etwas gepostet,
da hatte ich auch etwas gebastelt nur nicht gleich hochgeladen, ich hole das jetzt nach obwohl es prinzipiell nicht viel anders ist.
Aber dafür gleich zum ausprobieren,

[attachment=0]Werte_aus_Tabelle_extrahieren.odt[/attachment]
viel Spaß

Sub Main
 dim dNumber as double
 oTable = thisComponent.TextTables.Tabelle1
 oCell = oTable.getCellByPosition(1,2)'B3
 aCellContent = split(oCell.string,chr(10))
 sNumber = aCellContent(0)' 0 = erste Zeile
 dNumber = replace(sNumber,",",".")'Komma durch Punkt ersetzen, wenn nötig
 msgbox "In der ersten Zeile von Zelle "+ocell.CellName+" steht die Hälfte von "+(2*dNumber)
End Sub

Sub Main
 dim dNumber as double
 oTable = thisComponent.TextTables.Tabelle1
 oCell = oTable.getCellByPosition(1,2)'B3
 oTC = oCell.createTextCursor
 oTC.gotoEndOfParagraph(True)
 dNumber = replace(oTC.String,",",".")'Komma durch Punkt ersetzen, wenn nötig
 msgbox "In der ersten Zeile von Zelle "+ocell.CellName+" steht die Hälfte von "+(2*dNumber)
End Sub

Moin,
Beispiel 1, Trennen mit [color=#0040FF].Split[/color]:
[code]Sub Main
dim dNumber as double
oTable = thisComponent.TextTables.Tabelle1
oCell = oTable.getCellByPosition(1,2)'B3
aCellContent = split(oCell.string,chr(10))
sNumber = aCellContent(0)' 0 = erste Zeile
dNumber = replace(sNumber,",",".")'Komma durch Punkt ersetzen, wenn nötig
msgbox "In der ersten Zeile von Zelle "+ocell.CellName+" steht die Hälfte von "+(2*dNumber)
End Sub[/code]
Beispiel 2, erste Zeile mit Textcursor auslesen:
[code]Sub Main
dim dNumber as double
oTable = thisComponent.TextTables.Tabelle1
oCell = oTable.getCellByPosition(1,2)'B3
oTC = oCell.createTextCursor
oTC.gotoEndOfParagraph(True)
dNumber = replace(oTC.String,",",".")'Komma durch Punkt ersetzen, wenn nötig
msgbox "In der ersten Zeile von Zelle "+ocell.CellName+" steht die Hälfte von "+(2*dNumber)
End Sub[/code]
Gruß R

Eine Beispieldatei wäre ganz gut, damit das alles nachvollziehbar wird …

Gruß
lorbass