abhängige Listbox
08.11.2016 15:22:09
Fred
mit vba bin ich derzeit noch auf Kriegsfuß, obwohl mich so manche Möglichkeiten beeindrucken.
Ich befinde mich in Tabellenblatt "Center" und lese Werte in Abhängigkeit (aus gleichem Tabellenblatt) aus.
Dies mit folgenden Code im Userform:
Private Sub ComboBox1_Change()
Dim liZeile As Integer
liZeile = 2
ListBox1.Clear
Do Until Range("B" & liZeile).Value = ""
If ComboBox1.Text = Range("B" & liZeile).Value Then
ListBox1.AddItem Range("C" & liZeile).Value
End If
liZeile = liZeile + 1
Loop
End Sub
und
Private Sub UserForm_Activate()
Dim liZeile As Integer
ComboBox1.Clear
ComboBox1.AddItem Range("B2").Value
liZeile = 3
Do Until Range("B" & liZeile).Value = ""
If Range("B" & liZeile).Value Range("B" & liZeile - 1).Value Then
ComboBox1.AddItem Range("B" & liZeile).Value
End If
liZeile = liZeile + 1
Loop
ComboBox1.Text = "...hier auswählen..."
End Sub
Wie ändere ich den Code, so das die gleichen Felder in Tabelle "Daten" eingelesen werden, und die Auswahl der Listbox1 in Tabellenblatt "Tabelle3" Zelle "B5" eingetragen wird?
mfg
Fred