VBA Textbox in Abh. von Listbox
29.04.2016 18:26:53
Listbox
ich hänge mal wieder mit was anderem fest....
Mit dem Code von unten fülle ich auf der Userform eine ComboBox aus Tabellenblatt(7) Spalte 1 (dort stehen Abteilungen)
In Spalte 2 stehen die dazugehörigen Kostenstellen.
Nun möchte ich
Textbox1 mit den Abteilungen und Textbox2 mit den Kostenstellen füllen wenn ich die Abteilung in der Combobox auswähle.
Ich bekomme es einfach nicht hin. 1,5 Std. versucht....
Ich bitte nochmals um Hilfe
Vielen Dank
Private Sub UserForm_Initialize()
Dim lngZ As Long
For lngZ = 1 To Worksheets(7).Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem Worksheets(7).Cells(lngZ, 1).Text
Next
End Sub
Anzeige