Guten Morgen Community,
frage...
Ist es möglich, von einer ListBox zu einen TextBox in Anhängigkeit zu bringen.
von TextBox zu ListBox habe ich es hinbekommen, aber leider nicht anderes rum.
(von ListBox zu Textbox) bekomme ich es einfach nicht hin.
Mein Code
Ist es möglich, den wert von der Listbox als Abhängigkeit zu TextBox zu bringen?
(Der Wert ist in Tabelle3 hinterlegt. von Spalte 6 zu 7
Gruß
CodeTags korrigiert ~VaporiZed
frage...
Ist es möglich, von einer ListBox zu einen TextBox in Anhängigkeit zu bringen.
von TextBox zu ListBox habe ich es hinbekommen, aber leider nicht anderes rum.
(von ListBox zu Textbox) bekomme ich es einfach nicht hin.
Mein Code
Visual Basic-Quellcode
- Private Sub UserForm_Activate()
- Dim dict As Object, arr As Variant
- Dim lZeile As Long
- ' Tabelle 3 Daten in Array einlesen
- With Tabelle3
- lZeile = .Cells(Rows.Count, 2).End(xlUp).Row
- arr = .Range(.Cells(2, 1), .Cells(lZeile, 9)).Value '9 sind die anzahl der Spalten wo er sucht, und muss gesetzt werden.
- End With
- ' call Function für ComboBox & Listbox
- Set dict = CreateObject("Scripting.Dictionary")
- key6 = Set_Keys(dict, arr, 3, 6) ' ComboBox212
- key7 = Set_Keys(dict, arr, 6, 7) ' ComboBox213 & Listbox301
- Set dict = Nothing
- End Sub
Visual Basic-Quellcode
- Private Sub ListBox301_Change()
- Dim wert As Variant
- Dim i As Long
- With Me
- ' alte Werte löschen...
- .ComboBox302.Clear
- TextBox303 = ""
- ' und neue eintragen
- For i = 0 To UBound(key7)
- wert = Split(key7(i), "|")
- If .ListBox301 = wert(0) Then .ComboBox302.AddItem wert(1)
- Next i
- .ComboBox302.Clear
- TextBox303 = ""
- For i = 0 To UBound(key7)
- wert = Split(key7(i), "|")
- If wert(1) <> "" And .ListBox301 = wert(0) Then .TextBox303 wert(1)
- 'Next i
- End With
- End Sub
Ist es möglich, den wert von der Listbox als Abhängigkeit zu TextBox zu bringen?
(Der Wert ist in Tabelle3 hinterlegt. von Spalte 6 zu 7
Gruß
CodeTags korrigiert ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()