Listbox füllen

[Paule]

Ich habe auf dem Tabellenblatt "Ansicht" 2 Listboxen
Die erste bezieht sich auf die Spaltenüberschriften die sich auf die Auswahl davor (über Dialog) bezieht (Deshalb im code T1 und T2),und gibt eine Zahl aus.

Wenn eine Spalte der ersten Box ausgewählt wurde soll die zweite Box die Inhalte der Spalte zeigen. Und die sind ja Variabel. Deshalb das Makro.



Danach soll wenn ein Eintrag ausgewählt wurde die gesamte Zeile ausgegeben werden (nur um den Zweck zu erwähnen...).

grüße Paule

[Toxitom]

Hey Paule,

ähmmm, leider noch nicht verstanden.
Also, du hast eine Listbox, die die Zahlen 1-8 drin hat.
Jetzt wählt man eine aus, - diese liefert einen Code (Zahl).
Je nach Zahl soll jetzt in der zweiten Listbox die Inhalte der Spalte aufgeführt werden, deren Nummer der Zahl entspricht.
IN der Spalte können Inhalte in den Zellen stehen, maximal 65565 (wirklich so viel???) , wobei diese jedoch nicht kontinuierlich gefüllt sind. Leere Zellen sollen nicht in die Auswahlbox übernommen werden.
Soweit richtig?
Du hast 8 mögliche Spalten? kannst du die benennen? (als A-H oder so?) und wirklich so viele mögliche Einträge? Da geht die Performance ganz schön in die Knie....
Und was war mit dem T1 und T2? Das habe ich nicht verstanden...

Gruss
Thomas

[Paule]

Morgen Thomas,

Also, du hast eine Listbox, die die Zahlen 1-8 drin hat.

So ähnlich, die Lisbox hat die Spaltenüberschriften drin und gibt die Zahlen 1-8 auf "Ansicht"(Tabelle3), in Zelle B3 aus.

IN der Spalte können Inhalte in den Zellen stehen, maximal 65565 (wirklich so viel???) , wobei diese jedoch nicht kontinuierlich gefüllt sind. Leere Zellen sollen nicht in die Auswahlbox übernommen werden.
Soweit richtig?

Ja richtig, aber die Zellen sind durchgehend gefüllt, also ohne Leerzellen, deswegen sind die 65535 Zeilen auch egal da das Makro bei der ersten leeren Zeile abbricht.

Du hast 8 mögliche Spalten? kannst du die benennen? (als A-H oder so?)

FO bis FV

Und was war mit dem T1 und T2?

T1 = Tabelle1, T2 = Tabelle2

Gruß

Paule

[Toxitom]

Morgen Paule,

ok, es kommt noch ein bischen mehr Licht ins Dunkle. Noch ein paar Nachfragen:

Listbox 1 auf Tabelle "Ansicht" enhält Spaltenüberschriften (oder was auch immer). Dort wählt man nun einen speziellen Eintrag, dann soll Listbox 2 die entsprechenden Einträge der zugeordneten Spalte FO bis FV - identifiziert durch die zurückgegebene Nummer - enthalten?
Wozu speicherst du die Nummer in der Zelle B3 ? Brauchst du sie sonst noch irgendwie?
Üblicherweise würdest du doch ein Makro starten in Kombination des Ereignisses "modifiziert" der ersten Listbox. Dann kannst du doch direkt die Auswahl erhalten - wozu zwischenspeichern?

OK, der Code ist nicht so kompliziert, bin aber erst Samstag wieder online. Also bitte bis dahin gedulden.
Gib mir bitte noch den Code für deine T1List - nur der Vollständigkeitshalber.

Gruss
Thomas

[Paule]

Listbox 1 auf Tabelle "Ansicht" enhält Spaltenüberschriften (oder was auch immer). Dort wählt man nun einen speziellen Eintrag, dann soll Listbox 2 die entsprechenden Einträge der zugeordneten Spalte FO bis FV - identifiziert durch die zurückgegebene Nummer - enthalten?

Jep.

Wozu speicherst du die Nummer in der Zelle B3 ? Brauchst du sie sonst noch irgendwie?

Ja ein Paar Formeln beziehen sich darauf.

Gib mir bitte noch den Code für deine T1List - nur der Vollständigkeitshalber.

der einzige unterschied zu T2List ist nur das überall wo T2 steht T1 ins Makro muss, die tabellen haben die gleiche Struktur.

Viele grüße

Paule

[Toxitom]

Hey Paule,

so, hier nun das komplette Makro (oder besser die beiden). Das alles sollte ausreichen

Code: Alles auswählen

dim oDoc as object   'global definiert

REM dies Makro aufrufen!
Sub Liste2Start   
	dim sTab as string, iSpalte as integer
	oDoc = thisComponent
	osheet = oDoc.sheets.getByName("Ansicht")
	sTab = oSheet.getCellByPosition(17,0).string
	REM ich gehe davon aus, dass in Zelle(1,2) die Zahl als
	REM String (Text) steht!
	iSpalte = CInt(oSheet.getCellByPosition(1,2).string) 
	Liste2Fuellen(sTab, iSpalte)  'Aufruf des nächsten Makros
End Sub

sub Liste2fuellen(sTab as String, iSpalte as integer)
	Dim oListBox2 as Object, oForm as Object
	oForm = oDoc.sheets.getbyname("Ansicht").Drawpage.Forms(0)
	oListBox2 = oForm.getByName("ListBox2") 
	REM Spaltenarray erzeugen
	aSp = array( ,"FO", "FP", "FQ", "FR", "FS", "FT", "FU", "FV")
	REM Tabellenblatt auswählen
	oSheet2 = oDoc.sheets.getByName(sTab)
	for i = 3 to 65535
		oZelle = oSheet2.getCellRangeByName(aSp(iSpalte) & i)
		if oZelle.getType() then
		  sListe = sListe & ";" & oZelle.string  'wenn Zelle nicht leer
		else 
		  exit for  'wenn Zelle leer
		end if
	next
	sListe = right(sListe, len(sListe)-1) 'den führenden Trenner löschen
	aListe2 = split(sListe, ";")          'Umwandlung in Array
	oListbox2.stringItemList = aListe2()  'eintragen in Liste
end sub

Gruss
Thomas

[Paule]

Wow, klappt schnell und sauber!

Brauch wohl noch ein bischen den Code Vollständig zu vertehen..Aber übung macht den Meister

Vielen Dank

Paule