Hallo Leute,

ich möchte mir zwei Listboxen erstellen die voneinander abhängig sind.

Folgende Situation habe ich:  Listbox1 soll die Tabellenamen beinhalten und Listbox2 soll dann von der jeweiligen Tabellen bestimme Werte von Spalte 2, Zeile 6 bis Spalte 2, Zeile n enthalten.

Listbox1 konnte ich problemlos füllen, nur mit Listbox2 habe ich Probleme. Hier mein Code:

Private Sub ListBox1_Click()
    Dim ersteZeile As Long
    ersteZeile = 6
    If ListBox1.Text = "Montage" Then
        Do While Trim(CStr(Tabelle2.Cells(ersteZeile, 2).Value))
            ListBox2.AddItem Trim(CStr(Tabelle2.Cells(ersteZeile, 2).Value))
            ersteZeile = ersteZeile + 1
        Loop
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 2 To Worksheets.Count
    ListBox1.AddItem Worksheets(i).Name
    Next i
End Sub

Ich hoffe ihr könnt mir helfen.