[gelöst] Position einer Zelle in einer TextTable ermitteln

[Eminent]

Hi,

ich versuche derzeit das Füllen von TextTables mit bestimmten Kriterien für unsere Anwendung über die UNO-Schnittstelle zu realisieren.

Dabei habe ich bestimmte Textmarken, die in Tabellen liegen, und von denen ich mir die TabellenZelle holen kann (Textmarke -> TextRange -> TabellenZelle).

Anschließend müsste ich allerdings wissen, wo in der Tabelle die entsprechend Zelle liegt.

Mir ist klar, dass ich die Tabelle Zelle für Zelle durchlaufen könnte bis ich "meine" Zelle finde, allerdings erscheint mir das doch irgendwie recht umständlich.

Weiß einer von euch vielleicht eine "einfache" Möglichkeit, wie ich ausgehend von einer Tabelle + Zelle herausbekommen kann, wo die Zelle in der Tabelle liegt?

Vielen Dank schon mal für eure Hilfe!!!

Gruß
Eminent

Moderation: in "Basic"-Unterforum verschoben

[DPunch]

Aloha

Was genau meinst Du denn mit "wo die Zelle in der Tabelle liegt"?
Ob sie in "A1" oder "B15" liegt?

Wenn ja, dann würde das ungefähr so funktionieren:

Code: Alles auswählen

	oDoc = thisComponent
	sMyBookmark = "meineTextmarke"
	If oDoc.Bookmarks.hasByName(sMyBookmark) Then
		oBookmark = oDoc.Bookmarks.getByName(sMyBookmark)
		If NOT isEmpty(oBookmark.Anchor.TextTable) Then
			sCellPosition = oBookmark.Anchor.Cell.CellName
			sTableName = oBookmark.Anchor.TextTable.Name
			sMessage = "Textmarke: " & sMyBookmark & Chr(13) & "Zelle: " & sCellPosition & Chr(13)
			sMessage = sMessage & "Tabelle: " & sTableName
			MsgBox sMessage
		End If
	End If

[Eminent]

Hallo DPunch,

hast das schon richtig verstanden. Genau sowas habe ich gesucht. Mir war nicht klar, dass ich die Position der Zelle soz. aus dem Namen "ableiten" kann.

Vielen Dank für deine Hilfe!

Gruß
Eminent