Wir sind auf Ihre Unterstützung angewiesen!
💚 BITTE helfen Sie uns HEUTE mit einer SPENDE 💚
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

[GELÖST] Suche eindeutig machen

Alles zur Programmierung im LibreOffice.
Antworten
Ich Bins
Beiträge: 237
Registriert: Do 2. Aug 2018, 12:30

[GELÖST] Suche eindeutig machen

Beitrag von Ich Bins » Do 16. Feb 2023, 20:18

Hallo zusammen,

mit nachfolgendem Code sucht in Zeile 3 der Tabelle1 nach dem Zellinhalt
irgendwas
Wie kann man ausschließen, dass auch
irgendwas_1
gefunden wird?

Code: Alles auswählen

	oSheet = oSheets.getByName("Tabelle1")
	oRange = oSheet.getCellRangeByName("A3:AA3")
	oSearchDesc = oRange.createSearchDescriptor()
	oSearchDesc.SearchString = "irgendwas"
	oFound = oRange.findFirst(oSearchDesc)
	oAddress = oFound.CellAddress
Viele Grüße
Ich Bins
Zuletzt geändert von Ich Bins am Do 16. Feb 2023, 20:51, insgesamt 1-mal geändert.

DavidG
Beiträge: 195
Registriert: Do 22. Mär 2018, 21:41

Re: Suche eindeutig machen

Beitrag von DavidG » Do 16. Feb 2023, 20:36

Hallo,

ich habe es nicht getestet, aber versuche dies:

Code: Alles auswählen

	oSearchDesc.SearchWords=True
		oSearchDesc.SearchString = "irgendwas"
siehe API:
'https://api.libreoffice.org/docs/idl/re ... a2400c5e51
Gruß

David
___________________
WIN 10 PRO
LO 7.4.5.1 (x64)

Ich Bins
Beiträge: 237
Registriert: Do 2. Aug 2018, 12:30

Re: Suche eindeutig machen

Beitrag von Ich Bins » Do 16. Feb 2023, 20:50

Hallo David,

besten Dank für den schnellen Lösungsvorschlag.

Code: Alles auswählen

	oSheet = oSheets.getByName("Tabelle1")
	oRange = oSheet.getCellRangeByName("A3:AA3")
	oSearchDesc = oRange.createSearchDescriptor()
	oSearchDesc.SearchWords=True			'das war die Lösung
	oSearchDesc.SearchString = "irgendwas"
	oFound = oRange.findFirst(oSearchDesc)
	oAddress = oFound.CellAddress
Viele Grüße
Ich Bins

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten