OpenOffice.info

Sub Lieferant_Zelle_ausgeben()
	supplier = array ("Siemens","Bosch","Audi","BMW")'kann erweitert oder gekürzt werden
	for d = 0 to ubound(supplier)
	sSuchbegriff = supplier(d)
	cZeilen = 5000 'Anzahl Zeilen die durchsucht werden sollen 
	x  = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C1:C" & cZeilen)
	v = x.getDataArray()
	for i = 0 to cZeilen -1
	Beschreibung = v (i)(0)
	if instr( Beschreibung,sSuchbegriff) then
	gZell= ThisComponent.Sheets().getByIndex(0).getCellRangeByName("D" & i +1)
	gZell.String = sSuchbegriff
	end if
	next i
	next d
	msgbox "Ausgabe fertig"
End Sub

Hallo Zusammen,

ich habe es mal mit folgendem Script gelöst wo man direkt nach mehreren Lieferanten suchen lassen kann:
[code]Sub Lieferant_Zelle_ausgeben()
supplier = array ("Siemens","Bosch","Audi","BMW")'kann erweitert oder gekürzt werden
for d = 0 to ubound(supplier)
sSuchbegriff = supplier(d)
cZeilen = 5000 'Anzahl Zeilen die durchsucht werden sollen
x = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("C1:C" & cZeilen)
v = x.getDataArray()
for i = 0 to cZeilen -1
Beschreibung = v (i)(0)
if instr( Beschreibung,sSuchbegriff) then
gZell= ThisComponent.Sheets().getByIndex(0).getCellRangeByName("D" & i +1)
gZell.String = sSuchbegriff
end if
next i
next d
msgbox "Ausgabe fertig"
End Sub[/code]

Viel Erfolg.

Jürgen

Hallo,

[quote="paul1961"] jetzt möchte ich eine neue spalte mit artikel_lieferant füllen. die info wer der lieferant des artikels ist, steht im artikel_text, mit vielen anderen informationen über den artikel. wie kann ich diese info auslesen und in eine ander zelle schreiben?[/quote]

Direkt nach einem Lieferanten zu suchen (also nach Siemens etc) macht wahrscheinlich ja keinen Sinn, weil der sich von Zeile zu Zeile wahrscheinlich ändert und Du willst ja für jede Zeile den jeweiligen Lieferanten haben. Such lieber mal irgend ein Merkmal, welches für alle Lieferanten zutrifft, z.B. daß in artikel_text steht "Lieferant:" oder der Lieferant kommt immer ab der 35. Stelle oder so. Dann kann man da dann versuchen, mit einer Suchen() oder Finden()-Konstruktion das gewünschter Ergebnis zu erreichen. Da wäre es aber am Günstigsten, Du lädst mal einen kleinen Ausschnitt aus der Datei hier hoch (vergiß nicht, Dinge rauszunehmen, die nicht für die Öffentlichkeit gedacht sind!). Dann können hier viele dienbare Geister drüber schauen und Dir eine sinnvolle Lösung anbieten.

Viele Grüße
AhQ

morgen paul,

[quote="paul1961"][quote="steffn"]kannst du ausschließen, dass "Siemens" in keinem anderen zusammenhang in der spalte vorkommt?[/quote]
ja, das kann ich ausschliessen. denn im artikel_text wird der hersteller immer wie folgt angesprochen:
"Hersteller: Siemens"[/quote]

äh ... widerspruch?
du schreibst "ja" und begründest dann "nein"!? :roll:

entweder bin ich zu müde oder du schreibst zu missverständlich

also von vorn:
1. willst du die teile selber zusammenbauen oder ein fertiges "script" geliefert bekommen?
2. kann die zeichenfolge *lieferantbezeichnung* in der spalte "artikel_text" nur als lieferant vorkommen oder auch in anderem zusammenhang?
3. bist du dir mit "Hersteller" = "lieferant" sicher?

mir fällt noch mehr ein ...

[quote="steffn"]das geht

erste kleine problem, das mir einfällt:
kannst du ausschließen, dass "Siemens" in keinem anderen zusammenhang in der spalte vorkommt?[/quote]


guten morgen steffn,

ja, das kann ich ausschliessen. denn im artikel_text wird der hersteller immer wie folgt angesprochen:
"Hersteller: Siemens"

in dieser kombination kommt das wort siemens in keinem anderen zusammenhang vor.

also brauche ich sowas wie: suche in spalte A nach " Hersteller: Siemens", wenn gefunden schreibe "Siemens" in spalte B.........

eigentlich "nur" ne modifizierte "suche/ersetze" anwendungen, gell?


NUR......:-)


besten gruss


paul

das geht

erste kleine problem, das mir einfällt:
kannst du ausschließen, dass "Siemens" in keinem anderen zusammenhang in der spalte vorkommt?

hallo,
ich hätte da gerne ein problem! :-)

ich sitze vor einer riesen calc-datei <aus csv importiert> mit 26.000 zeilen. jede zeile beschreibt einen warenartikel, also sind die spalten als artikel_nummer, artikel_text , artikel_preis.........usw definiert. jetzt möchte ich eine neue spalte mit artikel_lieferant füllen. die info wer der lieferant des artikels ist, steht im artikel_text, mit vielen anderen informationen über den artikel. wie kann ich diese info auslesen und in eine ander zelle schreiben?

ich bräuchte also ein script das zuerst nach einem wort sucht, zb. "Siemens" und wenn das Wort gefunden wird, wird es in derselben zeile in eine andere Spalte artikel_lieferant geschrieben........................

oder anders:

suche in spalte C nach "Siemens"! wenn gefunden, schreibe "Siemens" in dieselbe zeile in spalte D.


meint ihr, das geht irgendwie? wenn ja wie? :-)


vielen dank und gute nacht


paul