OpenOffice.info

Hallo Riswan,

habe deinen Wunsch nach tabellenblattübergreifender Listenabfrage durch verwendung eines benannten Bereiches realisiert.
Zudem kann der benannte Bereich mehrere Spalten enthalten und leere Zellen im Bereich werden übersprungen.
hier noch eine beiSpieldatei dazu

[attachment=0]finde_Markennamen_2.ods[/attachment]
viel Spaß

Hallo Riswan,

[quote="Riswan"]Was ist das für ein Code?[/quote]
das ist der Coder, der die Benutzerdefinierten Funktion EXTRACTIF() zur Verfügung stellt.
Öffne
[color=#008000]Calc > Menü > Extras > Makros > Makros verwalten > Ordner:Meine Makros > Standard > Funktionen > bearbeiten[/color]
ganz am Ende den kompletten Code unverändert einfügen und speichern.

Jetzt steht dir die Funktion [color=#0000FF]EXTRACTIF()[/color] dauerhaft zur Verfügung

für ein paar Basic-Basics ein paar Links:

https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide
http://www.dannenhoefer.de/faqstarbasic/index.html
Suche nach --> Andrew Pitonyak
Auch die F1-Hilfe des Macro-Editors ist nicht zu verachten

FUNCTION EXTRACTIF(LongText, Search as string)
'diese Funktion ermittelt ob ein Begriff aus dem Bereich Search im String LongText enthalten ist 
oSheet = Thiscomponent.CurrentController.ActiveSheet
sRange = oSheet.GetCellRangeByName(Search)
iScol = sRange.GetRangeAddress.StartColumn
iSrow = sRange.GetRangeAddress.StartRow
	for i=0 to sRange.rows.count -1
		if inStr(LongText,oSheet.GetCellByPosition(iScol,iSrow+i).string) > 0 then
			EXTRACTIF = oSheet.GetCellByPosition(iScol,iSrow+i).string
			exit function
		end if
	next
	EXTRACTIF = ""
End FUNCTION

Hallo Riswan,

habe mal eine benutzerdefinierte Funktion erstellt die tut was du möchtest.
Einen ZellenText nach einer Reihe von Begriffen zu durchsuchen und wenn ein Solcher gefunden wird wir der ausgegeben.
der Bereich der die Suchbegriffe enhält muss ein Spaltenberech sein und als Text angegeben werden
z.B. so
[color=#0000FF]=EXTRACTIF(B3;"N2:N23")[/color]

[code]
FUNCTION EXTRACTIF(LongText, Search as string)
'diese Funktion ermittelt ob ein Begriff aus dem Bereich Search im String LongText enthalten ist
oSheet = Thiscomponent.CurrentController.ActiveSheet
sRange = oSheet.GetCellRangeByName(Search)
iScol = sRange.GetRangeAddress.StartColumn
iSrow = sRange.GetRangeAddress.StartRow
for i=0 to sRange.rows.count -1
if inStr(LongText,oSheet.GetCellByPosition(iScol,iSrow+i).string) > 0 then
EXTRACTIF = oSheet.GetCellByPosition(iScol,iSrow+i).string
exit function
end if
next
EXTRACTIF = ""
End FUNCTION
[/code]
hier eine beiSpieldatei
[attachment=1]finde_marke.ods[/attachment]
hilf dir das?


[b][color=#FF0000]Edit: . . . . .[/color][/b]

damit die Beispieldatei sofort funktioniert hatte ich die Funktion in der Datei gespeichert,
was aber beim öffnen der Datei unter AOO genau das Gegeteil bewirkte,
nämlich für jede Formel die diese Funktion anwendet eine Fehlermeldung.
siehe http://de.openoffice.info/viewtopic.php?f=18&t=65983#p256899

Da ich die Funktion ja nur für die Beispieldatei in der Datei abgelegt hatte
und ansonsten Funktionen in die [b]Makro Bibliothek Standard/Funktionen[/b] gehören
habe ich Stephans Lösungsvorschlag auf die Schnelle umgesetzt.
(es scheint ja auch nur AOO zu betreffen, lt. Karolus tut es in LO ohne Mecker)

[attachment=0]finde_marken_in_Tabelle1.ods[/attachment]
hoffe jetzt macht es mehr Spaß die beiSpieldatei zu öffnen

clag