Comboboxen 1 Textbox in Abhängigkeit
Gerhard
Armin hat mir heute morgen mit meinem Problem geholfen und folgenden Code gebastelt :
Private Sub CB1_Change()
CB2.ListIndex = CB1.ListIndex
End Sub
Private Sub CB2_Change()
CB1.ListIndex = CB2.ListIndex
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Sub Userform_Activate()
Dim RX As Range
Dim Ra As String
Dim N As Integer
With Worksheets("Tabelle1")
Ra = "A3:A" & Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
For Each RX In Worksheets("Tabelle2").Range(Ra)
CB1.AddItem
N = CB1.ListCount - 1
CB1.List(N, 0) = RX.Value
Next
Ra = "B3:B" & Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For Each RX In Worksheets("Tabelle2").Range(Ra)
CB2.AddItem
N = CB2.ListCount - 1
CB2.List(N, 0) = RX.Value
Next
End With
End Sub
Das hier bezieht sich auf 2 Comboboxen die wechselweise in Abhängigkeit stehen...
so nun kommt aber noch ne Textbox hinzu... die egal mit welcher Box gesucht wird immer den Wert in in Spalte C Zeile ? steht ausgibt...
Zum Verständniss
CB1 Auswahl Werkstoffbezeichnung - Werte aus Spalte A
CB2 Auswahl Werkstoffnummer - Werte aus Spalte B
TB1 spezifisches Gewicht gr./kg - Werte aus Spalte C
Wenn ich nun bei CB1 etwas auswähle, gibt CB2 automatisch die zugehörige Werkstoffnummer aus und soll nun aber in TB 1 auch das dazugehörige spez. gewicht ausgeben.
Wenn ich nun in CB2 etwas auswähle, gibt CB1 automatisch die zugehörige Werkstoffbezeichnung aus und soll nun aber in TB 1 auch das dazugehörige spez. Gewicht ausgeben.
Ich hoff ihr versteht was ich möchte... Kann mir jemand dabei helfen?
Vielen Dank!!!
Gruß Gerhard