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.
|