Erste Zeile einer Zelle auslesen

[lorbass]

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

Gruß
lorbass

[F3K Total]

Moin,
Beispiel 1, Trennen mit .Split:

Code: Alles auswählen

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

[clag]

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) 124-mal heruntergeladen

viel Spaß