OpenOffice.info

REM  *****  BASIC  *****
Option Explicit

Sub Staerke_Change(oEvent)
dim oAuslesen, oDocument, oSheet, oDraw, oForm, oControler as Object
dim oListe, oListBox as Object
dim oListBoxNr as Integer
dim aRangeProperty(0) as new com.sun.star.beans.NamedValue
dim oRange, oListSource
	oAuslesen  = oEvent.Source.Model.Name
	oDocument  = StarDesktop.CurrentComponent
	oSheet     = oDocument.Sheets.GetByName("Bestellformular")
	oDraw      = oSheet.DrawPage
	oForm      = oDraw.Forms.GetByIndex(0)
	oControler = oDocument.GetCurrentController
	oListBox   = oControler.GetControl(oForm.GetByName(oAuslesen))
	oListBoxNr = Val(Right(oForm.getByName(oAuslesen).Name,2))
	Select case oListBox.SelectedItemPos 
		Case 0 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$A$2")
		Case 1 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$A$2:$A$26")
		Case 2 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$B$2:$B$55") 
		Case 3 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$C$2:$C$70")
		Case 4 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$D$2:$D$45")
	End Select
	aRangeProperty(0).Name  = "CellRange"
	aRangeProperty(0).Value = oRange.RangeAddress
	oListSource             = oDocument.CreateInstanceWithArguments("com.sun.star.table.CellRangeListSource",aRangeProperty) 
	oListe                  = oForm.GetByName("List Box " & oListBoxNr + 7)
	oListe.ListSourceType   = com.sun.star.form.ListSourceType.TABLEFIELDS
	oListe.ListEntrySource  = oListSource
End Sub

Hoppla, Entschuldige vielmals ^^
sry dumme Angewohnheit, schreib halt meist lieber selber auch wenn ich nur was abtipsel, weil dabei kann man ja auch noch was lernen :)

Jedenfalls funktionniert as jetzt auch ^^ *uffa* :D

Nun kann ich meine LB's mal abschliessen ^^

Und dann in naher Zukunft muss ich mich mit CheckBoxen und Rows asueinandersetzen ^^

LG und Vielen Dank an euch Alle :D



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

Hier nun mal der Fertige Code, wie ich ihn jetzt im Dokument drin hab, ist durch eine Große Hilfe von balu und DPunch zustande gekommen. :)

P.S: @balu mit deiner Logik mit LB umbenennen war schon sehr gut, dabei hab ich gemerkt, dass meine LB Stärke + 7 = LB Bezeichnung

[code]
REM ***** BASIC *****
Option Explicit

Sub Staerke_Change(oEvent)
dim oAuslesen, oDocument, oSheet, oDraw, oForm, oControler as Object
dim oListe, oListBox as Object
dim oListBoxNr as Integer
dim aRangeProperty(0) as new com.sun.star.beans.NamedValue
dim oRange, oListSource
oAuslesen = oEvent.Source.Model.Name
oDocument = StarDesktop.CurrentComponent
oSheet = oDocument.Sheets.GetByName("Bestellformular")
oDraw = oSheet.DrawPage
oForm = oDraw.Forms.GetByIndex(0)
oControler = oDocument.GetCurrentController
oListBox = oControler.GetControl(oForm.GetByName(oAuslesen))
oListBoxNr = Val(Right(oForm.getByName(oAuslesen).Name,2))
Select case oListBox.SelectedItemPos
Case 0 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$A$2")
Case 1 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$A$2:$A$26")
Case 2 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$B$2:$B$55")
Case 3 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$C$2:$C$70")
Case 4 : oRange = oDocument.Sheets.GetByName("HILFSTABELLE").GetCellRangeByName("$D$2:$D$45")
End Select
aRangeProperty(0).Name = "CellRange"
aRangeProperty(0).Value = oRange.RangeAddress
oListSource = oDocument.CreateInstanceWithArguments("com.sun.star.table.CellRangeListSource",aRangeProperty)
oListe = oForm.GetByName("List Box " & oListBoxNr + 7)
oListe.ListSourceType = com.sun.star.form.ListSourceType.TABLEFIELDS
oListe.ListEntrySource = oListSource
End Sub
[/code]

oRange.RangeAddress

Aloha

Du solltest den Code vielleicht besser kopieren, anstatt ihn abzutippen ;)

[code]oRange.RangeAddress[/code]
Mit 2 d - RangeAd[b][color=#0000FF]d[/color][/b]ress

aRangeProperty(0).Value = oRange.RangeAdress

Ja, ich benutze Option Explicit, hab jetzt so eingegeben einfach mit dim oRange, jedoch bekomm ich in folgender Zeile immer noch den Error, dass er weder Adress noch RangeAdress als kennt.
[code]aRangeProperty(0).Value = oRange.RangeAdress[/code]
kannst du mir da vllt noch weiterhelfen? testweise hab ich es auch mal ohne Option Explicit ausgeführ, bekomme jedoch die gleiche Fehlermeldung?

Aloha

[quote="CamuelSpenser"] jetzt muss ich nur noch rausfinden dann wie ich die oRange definieren muss ^^
habs mit Dim oRange as new com.sun.start.table.CellRange probiert aber da sagt er mir er wüsste nich was das ist =/[/quote]
Benutzt Du "Option Explicit"?
Wenn nicht, dann brauchst Du gar keine Definition, wenn ja, dann reicht ein "Dim oRange".

Hallo balu,

esrtma Danke für deine Erklärungen, das ist immer gut zu wissen :D

Zum Thema Val .. auch gut zu wissen, da dies bei VBA wohl autmoatisch passiert, hatte jedenfalls da nie nen Type Mismatch deswegen obwohl ich da auch von nem string einfach die letzten 3 zahlen weghau, gin da aber ohne Problem, sogar wenn dann z.B. als Ergebnis " 94" rauskam um ein Beispiel zu nennen hatt er beim Case aber erkannt dass es sich um die Zahl 94 handle.. ^^

Muss hier wohl meine Kompetenzen erweitern, dass dies eben nicht immer "automatisch" erkannt wird.

Zum anderen meinte ich die OOo Befehle, wie z.B. IF, hier bei mir im OOo als WENN angezeigt und so ^^
Dennoch Danke für deine ausführliche Beschreibung dazu.

Werd mir heut abend zu Hause mal die Seite von Dannenhofer etwas genauer anschauen, hab bisher nur vereinzelte Seiten durchgesehn bei denen ich dachte, dass sie mir nützen würden.
Jedoch vermisse ich bei den Erklärungen dort die Definitionen der Variablen was auch nicht immer eindeutig hervorgeht.
Wenn man z.B. plötzlich was in der Richtung :
Dim XXX as new com.sun.iwas definieren muss..

Hab da auch schon par Seiten durchgeschaut wie das damit geht, jedoch wurden die meisten von mir versuchten Typen von OOo nicht erkannt, weiss aber auch nicht voran das liegt,
wie zum Beispiel aus meine vorherigen Antwort an DPunch entnehmen kannst wo ich versucht hatte den oRange auf mehrere Arten zu definieren jedoch ohne erfolg, resp. bei meinem "Erfolg" der zunichte gemacht wurde dadurch, dass Object wohl kein Attribut .Adress hat ^^

LG, Camuel

Hallo CamuelSpenser,

hatte da noch was vergessen.
[quote]
(schon etwas komplizierter wenn die Befehle da auf Deutsch stehn und nicht auf Englisch)
[/quote]
Du vertust dich!
Das eine sind feste Vorgaben, wie z.B. "GetByName", und das andere sind einfach defenierbare Variablen wie z.B. [color=#008000][b]oAuslesen[/b][/color], [color=#008000][b]oHilfsTabelle[/b][/color], [color=#008000][b]oHilfTab1[/b][/color]... Genau so gut könnten sie auch [color=#008000][b]oLecker[/b][/color], [color=#008000][b]oSehrSaureZitrone[/b][/color] ... heißen.

Es ist jedoch sehr sinnvoll die Variablen zu Typisieren. Wobei beispielsweise o für Objekt, t für Text steht. Man muss nicht unbedingt Typisieren, aber vorteilhaft wäre es schon, da man dadurch besser den Überblick behalten kann was was ist.

Irgendwo gibt es auch ne Liste wo die Kürzel aufgelistet sind, nur hab ich momentan nicht den Link dazu. Immer halte ich mich auch nicht so recht an die Typisierung, aber ich versuch es so weit wie möglich einzuhalten.


Gruß
balu

Hallo CamuelSpenser,

[quote]
hängt vllt mir der OOo Version zusammen, jedoch bleibt der vorhin erwähnt Fehler weiterhin bestehen (ListIndexOutOfBounds)
[/quote]
Stimmt! Das liegt an der Version!
In der 3.2.1 stehen erst die Einträge, dann kommt ein nicht anwählbarer leerer Eintrag.
In der 3.3.0 kommt erst der leere Eintrag, der auch angewählt werden kann, und dann die richtigen Einträge.
Also ist das mit der If-Then Fehlerüberprüfung nicht verkehrt.


[quote]
ist schon hammer was de da geszaubert hast
[/quote]
Dabei bin ich doch noch Anfänger mit einem sehr bescheidenen Wissen. Dennoch; Danke :D.


[quote]
auch wenn mir einiges etwas unklar erscheint ^^
[code]oListBoxNr = Val(Right(ausloeser,3))[/code]
Das Right(ausloeser,3) versteh ich schon nur was hat es mit dem Val auf sich? Wird das zur Interpretation benötigt? *grübel*
[/quote]
Ich zitier mich mal.
[quote="balu"]
die Zahl extrahieren und in einen Wert umwandeln
[/quote]
Wenn Du jetzt aus dem Text "[color=#0000FF]List Box 101[/color]" den ersichtlichen Text-Teil "[color=#0000FF]List Box[/color]" rausschneidest, bleib wohl [color=#0000FF]101[/color] übrig. Jedoch ist das noch weiterhin ein Text, also kein Wert. Erst durch Val wird der Text in einen Wert gewandelt mit dem man dann auch rechnen kann, was zwingend nötig ist.

Ich hatte dir ja in meinem ersten Beitrag diverse Links gepostet, unter anderem den von Dannenhoefer. Dort steht das auch zum nachlesen. Einfach dort auf der Startseite auf Suchen klicken, und dann z.B. Val eingeben. (nur noch mal zur Erinnerung :wink:)


[quote]
Die Application.Caller im VBA schickt den Namen des Objektes was das Makro aufgerufen hat ...
[/quote]
Aja ja Danke! Interessant zu Wissen.


Gruß
balu

oListBoxNr = Val(Right(ausloeser,3))

Uii hoppla mein Fehler Danke @DPunch jetzt muss ich nur noch rausfinden dann wie ich die oRange definieren muss ^^

habs mit Dim oRange as new com.sun.start.table.CellRange probiert aber da sagt er mir er wüsste nich was das ist =/



@balu
Ich glaube du hast es auch so schon rausgefunden, im Grunde ist es das was du so im Makro bewirkst ^^
Die Application.Caller im VBA schickt den Namen des Objektes was das Makro aufgerufen hat, sprich wie due hier es gemacht hast mit dem oEvent als Parameter der das Event auslöst wenn ich das nun auf die schnelle so richtig verstanden habe :)

hängt vllt mir der OOo Version zusammen, jedoch bleibt der vorhin erwähnt Fehler weiterhin bestehen (ListIndexOutOfBounds) ist schon hammer was de da geszaubert hast, auch wenn mir einiges etwas unklar erscheint ^^
[code]oListBoxNr = Val(Right(ausloeser,3))[/code]
Das Right(ausloeser,3) versteh ich schon nur was hat es mit dem Val auf sich? Wird das zur Interpretation benötigt? *grübel*
Der Rest is weiterhin verständlich :)

LG

Aloha

[quote="CamuelSpenser"]Auf den QuellZellenBereich zugreifen und diesen zu ändern?[/quote]
Ich verstehe leider nicht, was Du meinst - der Code zeigt Dir lediglich, wie Du einen Zellenbereich als Quelle für eine Listbox setzen kannst, geändert wird da nichts.
[quote="CamuelSpenser"]Jedoch, bekomme ich eine Fehlermeldung mit der ich nicht umzugehen vermag bzw. nicht versteh was damit gemeint ist und zwar : "Fehler in Klammerschachtelung" in foglender Zeile :
[code]oListSource = oDocument.CreateInstanceWithArguments("com.sun.star.table.CellRangeListSource".aRangeProperty)[/code][/quote]
Wie kommt denn der Punkt da rein?
Das sind zwei Parameter für den Aufruf einer Funktion, dementsprechend muss der Punkt vor "aRangeProperty" ein Komma sein.

Hallo CamuelSpenser,

[quote]
wenn ich z.B. bei Stärke den Eintrag "" auswähle,
bekomme ich eine Fehlermeldung
[/quote]
Hatte ich auch. Müsste jetzt aber theoretisch nicht mehr vorkommen, da ich fälschlich der Listbox bei Ereignisse das Makro falsch zugeordnet hatte. Also bedarf es jetzt auch deiner Fehlerüberprüfung nicht mehr. In meiner aktuellen Version habe ich sie auch nicht drin.

Du hast mit der logischen Überlegung der Fehlerbeseitigung recht gehabt.


[quote]
Jetzt kommt noch eine große Hürde gibt es im StarBasic ein Gegenstück zum Application.Caller aus VBA?
Dadürch könnte ich meinen eventuell entstehenden Code auch verkleinern wieder, da ich das Makro für mehrere ListBoxen benutzen will, bei denen das Verhalten, das gleiche sein soll..
[/quote]
Ich kann kein Russisch :lol:.
Will damit sagen, dass ich die VBA Befehle nicht kenne. Und von daher nicht weiss was das zu bedeuten hat.

Aber ich hatte dein Problem schon erkannt, und auch beseitigt. Dazu musste ich aber die Listboxen (Libos) umbenennen, damit meine Technik greifen kann.
Die Libos mit der Beschriftung "stärke" bekamen die fortlaufenden Nummern von 101 bis 106. Und die Libos mit der Beschriftung "Bezeichnung" sowie "Wenn anderer Granit: Bezeichnung" die Nummern von 111 bis 116.

Dadurch konnte ich bequem den Namen der auslösenden Libo auslesen, die Zahl extrahieren und in einen Wert umwandeln. Wenn jetzt z.B. die Libo 101 auslöst, dann wird zu der 101 noch 10 hinzuaddiert (111) und schon wird die Libo 111 befüllt. 10 dazuaddieren deshalb, weil so ein nachvollziehbarer zusammenhang der Libos entsteht. Du kannst natürlich auch einen anderen Faktor als 10 nehmen. Nur müssen dann die anderen Libos umbenannt werden.

Ich hoffe Du wirst das auch noch verstehen. Ansonsten, einfach melden.
Und ferner hoffe ich das es das ist was Du dir gewünscht hast :).


Gruß
balu

oListSource  = oDocument.CreateInstanceWithArguments("com.sun.star.table.CellRangeListSource".aRangeProperty)

oSelctAdr = oHilfTab1.getCellByPosition(Pos-1,1).string

	oListe1   = oForm.GetByName("List Box 7")
	oListBox1 = oControler.GetControl(oListe1)
	Pos       = oListBox1.SelectedItemPos
	oListe2    = oForm.GetByName("List Box 14")	
	oListBox2 = oControler.GetControl(oListe2)		
	if Pos > 0 then 
		oSelctAdr = oHilfTab1.getCellByPosition(Pos-1,1).string
		oHilfsTabelle = oHilfTab1
		oLiboAdr = oSelctAdr
		oLiboNam = "List Box 14"	
		ListBoxFuellen		
	else
		oListBox2.Model.StringItemList = Nulllist()	
	end if 	

Ahoi inr lieben ^^
hab nu ma bissle rumgetestet mit euren beiden Vorschlägen...

@DPunch :

Wie ich deinem Vorschlag entnehme würdest du (wenn ich den Code Richtig interpretiere), Auf den QuellZellenBereich zugreifen und diesen zu ändern? Dies würde mir persönlich natürlich sehr zuvorkommen, da ich dies für andere Bereiche später auch noch benötigen würde bzw. bevorzugen :)
Jedoch, bekomme ich eine Fehlermeldung mit der ich nicht umzugehen vermag bzw. nicht versteh was damit gemeint ist und zwar : "Fehler in Klammerschachtelung" in foglender Zeile :

[code]oListSource = oDocument.CreateInstanceWithArguments("com.sun.star.table.CellRangeListSource".aRangeProperty)[/code]

[color=#FF0000]Edit :[/color]
Hab die "" mal entfernt, nun gibt er mir die Fehlermeldung die Variable oRange sei nicht definiert, weiss aber nicht als was ich sie definieren soll, hab versucht mit Variant und Object aber beide male bekomm ich danach die Fehlermeldung, dass er Adress nicht als Eigenschaft resp. Methode kennt.
[color=#FF0000]Edit Ende[/color]

@balu : deine Version geht schon genau in die Richtung wie das ganze funktionnieren soll ;)
jedoch ein paar Winzige Probleme, wenn ich z.B. bei Stärke den Eintrag "" auswähle,
bekomme ich eine Fehlermeldung in folgender Zeile :
[code]oSelctAdr = oHilfTab1.getCellByPosition(Pos-1,1).string[/code]

Fehlermeldung :
BASIC-Laufzeitfehler. Es ist eine Excepton aufgetreten
Type : com.sun.star.lang.IndexOutOfBoundsException
Message.

Die Fehlermeldung kann ich soweit ganz gut nachvollziehen, da in diesem Fall ja "Pos" = 0 ist und somit würde an getCellByPosition ja der Wert (-1,1) übergeben werden, wenn ich mich nicht irre, oder?
Damit versucht er ja dann auf eine Zelle zuzugreifen die nicht existiert und somit auch nicht erreicht werden kann?
Ansonsten funktionniert das ganze schon ziemlich gut :D

... Dies habe ich soeben auch gelöst bekommen mit ner if abfrage, bei welcher ich überprüfe ob Pos grösser ist als 0, wenn nicht wird sie per Nulllist() geleert.

[code] oListe1 = oForm.GetByName("List Box 7")
oListBox1 = oControler.GetControl(oListe1)
Pos = oListBox1.SelectedItemPos
oListe2 = oForm.GetByName("List Box 14")
oListBox2 = oControler.GetControl(oListe2)
if Pos > 0 then
oSelctAdr = oHilfTab1.getCellByPosition(Pos-1,1).string
oHilfsTabelle = oHilfTab1
oLiboAdr = oSelctAdr
oLiboNam = "List Box 14"
ListBoxFuellen
else
oListBox2.Model.StringItemList = Nulllist()
end if
[/code]

Hab zwar etwas gebraucht um die eingesetzte Formel zu verstehen, aber ich denke habs nun raus ^^
(schon etwas komplizierter wenn die Befehle da auf Deutsch stehn und nicht auf Englisch)

Was den Makro-Code angeht kann ich mir das meiste ziemlich gut vorstellen, momentan glaub ich alles zu verstehn sollten noch Fragen auftreten melde ich mich. :)

***
Wenn meine Interpretationen Richtig sind scheinen beider Versionen Erfolgversprechend zu sein ^^

Jetzt kommt noch eine große Hürde gibt es im StarBasic ein Gegenstück zum Application.Caller aus VBA?
Dadürch könnte ich meinen eventuell entstehenden Code auch verkleinern wieder, da ich das Makro für mehrere ListBoxen benutzen will, bei denen das Verhalten, das gleiche sein soll..

LG Camuel

und btw schon einen riesen Danke an euch für eure Hilfe :)

Hallo CamuelSpenser,

[quote]
Wollt mich nochmal bei dir Entschuldigen balu, wusste nicht dass das mit dem "Cross-Posting" nicht gern gesehn ist, zumal mir dieser Terminus bis heute gänzlich unbekannt war. Möchte mich somit auch für meine Unwissenheit entschuldigen.
[/quote]
Ist schon gut. Akzeptiert, und angenommen.


[quote]
Euer Vorschlag mit Daten-Gültigkeit würde mir auch sehr entgegenkommen... aber leider bin ich gezwungen die Steuerelemente zu nutzen da mein Arbeitgeber dies so von mir verlangt :
[/quote]
Schade! Verstehen tu ich deinen Chäffe abba net. Aber wat solls!? Wir werden schon weiter kommen, irgendwie.


Gegen DPunch und sein Wissen komm ich ja nicht an, aber dennoch hab ich mal versucht meine Ideen umzusetzen. Und vielleicht ist es ja hilfreich.

Ich hatte ja in meinem ersten Beitrag hier einen anderen Thread verlinkt, in dem es ja um das befüllen von Listboxen geht. Auch wenn es um Listboxen in einem Dialog ging, so lies sich die Routine dementsprechend anpassen. Ich weis jetzt nur nicht ob der Vorschlag von DPunch, oder der vom verlinktem Thread schneller ist. Wie auch immer, ich habe den verlinkten genommen und etwas modifiziert in die Datei eingebaut.

Wegen Müdigkeit werd ich jetzt nicht sehr viel dazu sagen, bis auf das folgende.

Im Blatt "Bestellformular" die "List Box 7" (die liegt auf der Zelle B10) anklicken und einen Eintrag auswählen. Danach steht in der Listbox rechts daneben ("List Box 14") dann der Inhalt des gewünschten Datenbereichs zur Verfügung. Je nach dem welcher Eintrag in der "List Box 7" gewählt wird, wird die "List Box 14" dann dementsprechend gefüllt.

Dazu habe ich aber im Blatt HILFSTABELLE in der Zeile 2 (Blassgelber Bereich) einen kleinen Trick angewendet. Denn dort wird durch Matrixformeln der Benutzte Datenbereich als Zelladressierung ausgegeben. Beispielsweise so: A3:A26
Und auf diese Blassgelben Zellen greift nun das Makro zur Listboxbefüllung zu.


Einfach mal mit den beiden Listboxen spielen, und das geänderte Makro anschauen. Ich hoffe das ich dich mit den Makro-Änderungen nicht überfordere. Ansonsten sag bescheid, damit ich ausführlicher das ganze beschreibe. Und nicht vergessen, es ist nur ein Vorschlag. Wahrscheinlich liese sich das ein oder andere vielleicht noch verbessern.

Viel Spaß :)


Gruß
balu

	oRange = oDocument.Sheets.getByName("HILFSTABELLE").getCellRangeByName("$A$2:$A$26")
	Dim aRangeProperty(0) as new com.sun.star.beans.NamedValue
	aRangeProperty(0).name = "CellRange"
	aRangeProperty(0).value = oRange.RangeAddress
	oListSource = oDocument.createInstanceWithArguments("com.sun.star.table.CellRangeListSource",aRangeProperty)
	oListe2.ListSourceType = com.sun.star.form.ListSourceType.TABLEFIELDS
	oListe2.ListEntrySource = oListSource

Aloha

[quote="CamuelSpenser"]So das hatte jetzt funktionniert mit :
[code]
If oPos = 1 Then
oListe2 = oForm.GetByName("List Box 14")
oListBox2 = oControler.GetControl(oListe2)
REM Models!
oListe2.StringItemList("HILFSTABELLE.$A$2:$A$26")
End If[/code][/quote]
Das kann ich mir beim besten Willen nicht vorstellen, ".StringItemList("HILFSTABELLE.$A$2:$A$26")" beinhaltet ja nichtmal eine Zuweisung. Vermutlich (oder eher: mit ziemlicher Sicherheit) hattest Du die ListBox zwischenzeitlich per Hand befüllt.

Jedenfalls sollte das ungefähr so funktionieren:

[code] oRange = oDocument.Sheets.getByName("HILFSTABELLE").getCellRangeByName("$A$2:$A$26")
Dim aRangeProperty(0) as new com.sun.star.beans.NamedValue
aRangeProperty(0).name = "CellRange"
aRangeProperty(0).value = oRange.RangeAddress
oListSource = oDocument.createInstanceWithArguments("com.sun.star.table.CellRangeListSource",aRangeProperty)
oListe2.ListSourceType = com.sun.star.form.ListSourceType.TABLEFIELDS
oListe2.ListEntrySource = oListSource[/code]

oha ich seh grad, das geht wirklich nicht, nur ist mir unbegreiflich warum es nicht funktioniert. :o
Hab die Original-Datei bei Hand und der Code ist 1 zu 1 derselbe aber bei der Original-Datei funktionniert es o.o

obwohl ich bei der Kopie-Datei nur die Preise entfernt habe... hm ok ich versuchs nochmal mit ner Kopie ob es dann klappt wenn ich die Preise entfernt hab is wohl iwie ein Fehler beim kompilieren passiert ? Ich weiss es nicht ^^

Hab jetzt nochmal das Original zu ner Test-Datei abgeändert (Preise entfernt) ... nun scheint es zu funktionnieren wie ich es beschrieben habe ohne den Runtime-Error...
Ich werde jedoch nach dem Posten die Datei nochmal von hier herunterladen um das ganze nochmals zu überprüfen nicht, dass beim hochladen eventuell ein Fehler unterlaufen ist, was ich mir jedoch schwer vorstellen kann... ^^

Zu Os etc :
Auf der Arbeit hab ich Windows XP Proffesionnal SP3, OpenOffice 3.3.0, Java 6 Update 22 (iwie will er Java 7 nicht?)
Hier auf dem PC is Windows 7 Home Premium, OpenOffice 3.3.0, Java 6 Update 27

Das aktuelle Ergebnis sieht Momentan so aus :

[img]http://img502.imageshack.us/img502/3366/strkebezeichnung.png[/img]

Gruß Camuel :)

P.S. : Wollt mich nochmal bei dir Entschuldigen balu, wusste nicht dass das mit dem "Cross-Posting" nicht gern gesehn ist, zumal mir dieser Terminus bis heute gänzlich unbekannt war. Möchte mich somit auch für meine Unwissenheit entschuldigen.


[color=#FF0000]Edit :[/color]
Hab grad probier mit runterladen und öffnen und nun scheint es zu funktionieren :)

[color=#FF0000]Edit 2:[/color]
P.S. : Euer Vorschlag mit Daten-Gültigkeit würde mir auch sehr entgegenkommen... aber leider bin ich gezwungen die Steuerelemente zu nutzen da mein Arbeitgeber dies so von mir verlangt :S

Hallo Jürgen,

bei genauerer Überlegung frag ich mich jetzt auch, ob es denn unbedingt mit Formular-Steuerelementen gemacht werden muss, oder ob nicht vielleicht doch ->Daten ->Gültigkeit die einfachere Methode ist. :roll:
Ich persönlich würd mich für das letztere entscheiden.

Danke für deinen Denkanstoß :D . Hat ich aus diversen Gründen schon gar nicht mehr dran gedacht.


Gruß
balu