VBA Textbox in Abh. von Listbox
09.05.2016 20:10:20
Listbox
git es die Möglichkeit im unteren Code noch in Abhängigkeit der Combobox, Textboxen einzulesen?
Also wenn "Text in Combobox ein bestimmeter" diesen dann mit Text vergleichen in Spalte F der Tabelle18.
Dann den Wert aus Tabelle18 Spalte 7 in Textbox1 eintragen.
Gruß Michael
Private Sub ComboBox3_Change()
Dim liZeile As Integer
liZeile = 1
ListBox1.Clear
ListBox2.Clear
If ComboBox3.Value = "Alle_Abteilungen" Then
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 3).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 3).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
ListBox2.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
ListBox2.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End If
liZeile = liZeile + 1
Do Until Tabelle1.Range("H" & liZeile).Value = ""
If ComboBox3.Text = Tabelle1.Range("H" & liZeile).Value Then
ListBox1.AddItem Tabelle1.Range("C" & liZeile).Value
ListBox2.AddItem Tabelle1.Range("A" & liZeile).Value
End If
liZeile = liZeile + 1
Loop
End Sub