OpenOffice.info

    oHRisiko = oFrmRisiko.getControl("lbHKat").SelectedItem
    For i = 1 to ZeileHKat
	    If oHRisiko = oSheet_Daten.GetCellByPosition(3,i).String Then
           lbUKat_Fuellen(i)	       	       
	       Exit For
	    End If
    Next

Hallo Thomas,

du hast Recht. Ich habe es jetzt folgendermaßen gelöst:

ich vergleiche das 'SelectedItem' mit den Einträgen in meiner Tabelle und rufe dann entsprechend die Sub zum Füllen der zweiten Box auf. Dabei übergebe ich die entsprechende Zeilennummer.

[code] oHRisiko = oFrmRisiko.getControl("lbHKat").SelectedItem
For i = 1 to ZeileHKat
If oHRisiko = oSheet_Daten.GetCellByPosition(3,i).String Then
lbUKat_Fuellen(i)
Exit For
End If
Next
[/code]
Gruss

Thomas

Hallo Thomas,

[quote]Kann mir da vielleicht jemand einen Tip geben? [/quote]

Na, du hast dir doch schon selbst den Tip gegeben ;-)

Hier:
[quote]Ich müsste vielleicht die Selektion aus "lbHKat" im Tabellenblatt "suchen", dann die Zelladresse ermitteln und kann dann die nebenstehenden Unterkategorien in die zweite Listbox eintragen. [/quote]

Lass das "vielleicht" raus, begrenze eventuell die Suche auf die Spalte A. Wobei das allerdings gar nicht nötig sein muss. Die erste Listbox füllst du doch "dynamisch", also werden hinzugekommene Haupteinträge dargestellt. Statt dem gewählten Eintrag kannst du dir ja auch die Positionsnummer zurückgeben lassen, dadurch hast du schon die passende Zeile (Startzeile-Index + Positionsnummer). Dann brauchst du nur noch die Untereinträge auszulesen.

Gruss
Thomas

Sub lbHKat_Fuellen

	Dim oListBox as Object
	Dim ZeileHKat

    oCell   = oSheet_Daten.getCellRangeByName("A20") 
    oCell   = MoveCursorToEnd(oCell,"xlUp")   
    ZeileHKat = oCell.CellAddress.Row

      oListBox=oFrmRisiko.getControl("lbHKat")
      oListBox.removeItems(0, oListBox.getItemCount())
      For i = 0 To ZeileHKat Step 1
          oCell = oSheet_Daten.GetCellByPosition(0,i)
          olistbox.additem(oCell.String,i)
      Next i 
End Sub

Hallo zusammen,

ich möchte eine Listbox2 in Abhängigkeit von einer Selektion in Listbox1 befüllen.
Konkret meine ich folgendes:

In Zelle A1 steht z.B. "Hauptkategorie1", in A2 "Hauptkategorie2", usw.
In Zelle B1 steht dann "Unterkategorie1a", in C1 "Unterkategorie1b", usw.
In Zelle B2 steht dann "Unterkategorie2a", in C2 "Unterkategorie2b", usw.

Listbox1 befülle ich folgendermaßen:

[code]Sub lbHKat_Fuellen

Dim oListBox as Object
Dim ZeileHKat

oCell = oSheet_Daten.getCellRangeByName("A20")
oCell = MoveCursorToEnd(oCell,"xlUp")
ZeileHKat = oCell.CellAddress.Row

oListBox=oFrmRisiko.getControl("lbHKat")
oListBox.removeItems(0, oListBox.getItemCount())
For i = 0 To ZeileHKat Step 1
oCell = oSheet_Daten.GetCellByPosition(0,i)
olistbox.additem(oCell.String,i)
Next i
End Sub[/code]

Das klappt soweit ganz gut.
Nun möchte ich eine zweite Listbox füllen, und zwar in Abhängigkeit von der Selektion in "lbHKat". Wenn z.B. "Hauptkategorie1" ausgewählt wurde, soll in der zweiten Listbox "Unterkategorie1a", "Unterkategorie1b" usw. erscheinen.

Allerdings möchte ich das nicht im Code hart verdrahten, da im Calc-Sheet die Kategorien gepflegt werden sollen. Es könnten also Haupt-, bzw. Unterkategorien dazu kommen.

Ich müsste vielleicht die Selektion aus "lbHKat" im Tabellenblatt "suchen", dann die Zelladresse ermitteln und kann dann die nebenstehenden Unterkategorien in die zweite Listbox eintragen.

Kann mir da vielleicht jemand einen Tip geben?

Gruss

Thomas