OpenOffice.info

Verfasst: **Mi, 20.07.2016 18:24**

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

Gruß
lorbass

Verfasst: **Do, 21.07.2016 07:35**

Moin,
Beispiel 1, Trennen mit .Split:

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

Beispiel 2, erste Zeile mit Textcursor auslesen:

Code: Alles auswählen

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

Gruß R

Verfasst: **Do, 21.07.2016 09:59**

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,

Werte_aus_Tabelle_extrahieren.odt: (16.18 KiB) 138-mal heruntergeladen

viel Spaß

OpenOffice.info

Erste Zeile einer Zelle auslesen

Re: Erste Zeile einer Zelle auslesen

Re: Erste Zeile einer Zelle auslesen

Re: Erste Zeile einer Zelle auslesen