Listboxen füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Listboxen füllen
von: Michael
Geschrieben am: 29.05.2002 - 20:58:23

Hallo Excellenzen!

Folgendes ist mein Problem!

Die Zeile 1 ist von Spalte A bis K ist mit Haupt-Artikelnummer gefüllt. Unter den Artikeln habe ich bis zur Zeile 12 andere Nummern als Untergruppen eingetragen.
Wie kann ich über die Auswahl in Listbox-1(Hauptartikel)meine Listbox-2 mit den passenden Unterartikeln füllen?

Würde mich echt freuen, wenn mir jemand hilft.
(Bin allerdings absoluter Neuling!!)


nach oben   nach unten

Re: Listboxen füllen
von: Monika Weber
Geschrieben am: 30.05.2002 - 03:24:44

Hallo Michael

In meinem Beispiel habe ich
- ein UserForm
- 2 ListBox
- 1 CommandButton

Hier ein Lösungsansatz:


Option Explicit

Private Sub UserForm_Initialize()
Dim As Range
   ' ListBox1 füllen
   For Each c In Range("A1:K1")
      ListBox1.AddItem c
   Next c
End Sub

Private Sub CommandButton1_Click()
Dim As Range, x As String
   On Error Resume Next
   ListBox2.Clear

   ' Wert suchen und Zelladresse des gefundenen Wertes an x übergeben
   x = Range("A1:K1").Find(What:=ListBox1.List(ListBox1.ListIndex)). _
       Address(False, False)

   ' Werte aus der entspr. Spalte in ListBox 2 übertragen
   If Range(x).Offset(1, 0).Value <> "" Then
      For Each c In Range(x, Range(x).End(xlDown))
         ListBox2.AddItem c
      Next c
   End If
End Sub

(Getestet in XL2000)

Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika


Beiträge aus den Excel-Beispielen zum Thema "DFÜ-Verbindung starten"