Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Problem. Abhängigkeit Combob. und Textbox

Betrifft: Problem. Abhängigkeit Combob. und Textbox von: Andreas
Geschrieben am: 01.10.2014 17:10:15

Hallo Excelprofis,

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

  

Betrifft: AW: Problem. Abhängigkeit Combob. und Textbox von: hary
Geschrieben am: 01.10.2014 17:21:16

Moin
Was auffaellt.
***Wenn in ComboboxOrt ein Wert steht suche diesen Wert im Blatt "Orte"***
Set gefunden = Orte.Range("A1:xxxx
kann es sein das es so sein sollte?
Set gefunden = Worksheeets("Orte").Range("A1:xxx
Und variable "gefunden" hast du nicht deklariert.
gruss hary


  

Betrifft: AW: Problem. Abhängigkeit Combob. und Textbox von: Andreas
Geschrieben am: 01.10.2014 17:32:00

Hallo Hary,

Vielen Dank für die schnelle Antwort. Bin leider nicht so bewandert in VBA. Den vorhanden Code habe ich Dank diese Forums zusammenbekommen. Den Code für Textbox1 habe ich so im Netz gefunden. Wenn ich die Zeile

Set gefunden = Worksheeets("Orte").Range("A1:A" & lastRow).Find(ComboBoxOrt)
nehme, bekomme ich den Fehler Function nicht definiert.

Kannst du mir den Code bitte anpassen?

Vielen Dank!

mfg, Andreas


  

Betrifft: AW: Problem. Abhängigkeit Combob. und Textbox von: hary
Geschrieben am: 01.10.2014 17:45:14

Moin
Ohne Test. Wenn der Blattname: Orte

Private Sub ComboBoxOrt_Change()
Dim lastrow As Long
Dim gefunden As Range
With Worksheets("Orte")
    lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
  Set gefunden = .Range("A1:A" & lastrow).Find(ComboBoxOrt.Value)
    If Not gefunden Is Nothing Then
        TextBox1 = gefunden.Offset(0, 1).Value
    End If
End With
End Sub

gruss hary


  

Betrifft: Vielen Dank! Klappt super. Schöne Woche. owT. von: Andreas
Geschrieben am: 01.10.2014 17:47:49

.


 

Beiträge aus den Excel-Beispielen zum Thema "Problem. Abhängigkeit Combob. und Textbox"