Wieder mal ein Problem bei dem ich mit meinen bescheidenen Kenntnissen nicht weiterkomme.
Ich habe ein UserForm mit, unter anderem, 2 Comboboxen und einer Textbox. ComboboxStr wird aus Blatt "Strassen", SpalteA gefüllt. ComboboxOrt wird in Abhängigkeit zu ComboboxStr mit Werten aus Blatt "Strassen", Spalte B bis J gefüllt.
Jetzt möchte ich folgendes erreichen:
Wenn in ComboboxOrt ein Wert steht suche diesen Wert im Blatt "Orte" in Spalte A und gebe den dazugehörigen Wert aus Spalte B in Textbox1 aus.
Mein bisheriger Code:
' befüllen von ComboboxStr ("Strassen", SpalteA)
Private Sub Userform_Initialize()
Dim lastRow As Integer
lastRow = Worksheets("Strassen").Cells(65536, 1).End(xlUp).Row
ComboBoxStr.List = Worksheets("Strassen").Range("A1:A" & lastRow).Value
End Sub
'befüllen von ComboboxOrt in Abhängigkeit von ComboboxStr (Blatt "Strassen" Spalten B - J
Private Sub ComboBoxStr_Change()
Dim arr As Variant
If ComboBoxStr.ListIndex >= 0 Then
arr = Worksheets("Strassen").Range("B" & ComboBoxStr.ListIndex + 1 & ":J" & ComboBoxStr. _
ListIndex + 1)
ComboBoxOrt.Column = arr
ComboBoxOrt.ListIndex = 0
End If
End Sub
Ich hab auch schon was im Netz gefunden, bringt aber einen Laufzeitfehler 424
Private Sub ComboBoxOrt_Change()
Set gefunden = Orte.Range("A1:A" & lastRow).Find(ComboBoxOrt)
If Not gefunden Is Nothing Then
TextBox1 = gefunden.Offset(0, 1).Value
End If
End Sub
Kann mir bitte Jamand helfen!Vielen Dank fürs lesen!
mfg, Andreas