Office: ListBox in Abhängigkeit von ComboBox

Hallo zusammen,

ich habe folgende Frage/Problem:
In einer Userform habe ich eine Combobox und eine ListBox, welche mir automatisch beim starten die Namen der vorhandenen Tabellenblätter anzeigt.

Dies habe ich wie folgt realisiert:

Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i

End Sub

Wenn ich nun in der Combobox beispielsweise "Tabelle1" anwähle soll die Listbox alle Werte aus der ersten Spalte der ausgewählten Tabelle anzeigen.
Ich komm dabei irgendwie nicht weiter und VBA ist noch neu für mich.

Hoffe ihr könnt mir ein paar Anregungen geben...

:)

 

Hallo

eine Möglichkeit
Code:

MfG Tom

 

Hallo Tom,
danke für die schnelle Antwort. Hat super geklappt.

Eine Frage hätte ich noch. Aus einer alten Tabelle habe ich folgenden Code.

Private Sub ListBox1_Click()
Dim lZeile As Long

If ListBox1.ListIndex >= 0 Then

lZeile = 2
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) ""

If ListBox1.Text = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) Then

TextBox1 = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))
TextBox2 = Tabelle2.Cells(lZeile, 2).Value
TextBox3 = Tabelle2.Cells(lZeile, 3).Value
TextBox4 = Tabelle2.Cells(lZeile, 4).Value
TextBox5 = Tabelle2.Cells(lZeile, 5).Value
TextBox6 = Tabelle2.Cells(lZeile, 6).Value
TextBox7 = Tabelle2.Cells(lZeile, 7).Value
TextBox8 = Tabelle2.Cells(lZeile, 8).Value
TextBox10 = Tabelle2.Cells(lZeile, 9).Value
TextBox11 = Tabelle2.Cells(lZeile, 10).Value
TextBox12 = Tabelle2.Cells(lZeile, 11).Value
TextBox13 = Tabelle2.Cells(lZeile, 12).Value

End If
lZeile = lZeile + 1
Loop
End If
End Sub

Dieser steht in der gleichen Userform in der ListBox1.
Anstelle der fixen "Tabelle2" möchte ich nun aber den ausgewählten Wert aus der Combobox verwenden. Das ausgewählte Tabellenblatt soll also von meiner Auswahl in der Combobox abhängen...

 

Hi

ungetestet
Code:

und hier noch einmal mit Schleifen
ungetestet!
Code:

MfG Tom