brauche heute wieder Eure Hilfe bei einer Userform. Bernie hat mir gestern schon toll geholfen, doch beim hinzufügen einer Textbox bzw. wie diese zu Füllen ist, komme ich nicht weiter. In der Userform gibt es 2 abhängige Comboboxen, wenn die gefüllt sind, soll die Textbox mit dem entsprechenden Wert aus der Tabelle gefüllt werden. Wie muss der Code geändert werden?
https://www.herber.de/bbs/user/55497.xls
Der Code bisher:
Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub UserForm_Initialize()
Dim r As Integer
Dim i As Integer
With Sheets("Tabelle2")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.RowSource = .Range("A2:A" & r).Address(External:=True)
r = .Cells(Rows.Count, 1).End(xlUp).Row
ComboBox2.RowSource = .Range("B2:B" & r).Address(External:=True)
'Codezeile von mir reingebastelt, produziert Laufzeitfehler
r=.Cells(Rows.Count, 1).End(xlUp).Row
TextBox1.RowSource = .Range("C2:C" & r).Address(External:=True)
End With
End Sub
Danke für Eure Hilfe
Gruss
Bernhard