Moin,
ich habe eine Userform aufgebaut in der Werte aus einer Tabelle genommen werden basierend auf dem was ich vorher in einer Combobox gewählt habe.
Nun habe ich in Spalte 1 Dinge die gewählt werden können in Combobox 1. bei Auswahl einer beliebigen gibt er mir für die nächste CB alle Werte aus die in der jeweiligen Zeile ab Spalte 2 bis Ende stehen (Werte auch doppelt vorkommend) . Und nun sollte wenn ich eine dieser Spalten auswähle mir das Ergebnis angezeigt werden was jeweils in der 1 Zeile steht der dazugehörigen Spalte. Da oft eine Spalte das selbe hat wie andere zeigt es mir auch die Ergebnisse zu den anderen gleichen Spalten an. Das ist soweit auch gewollt.
Das klappt auch alles super bis auf bei einen Spaltenwert. Woran kann das liegen dass er genau diesen einen nicht nimmt?
Ich kann ja mal mein Code rein packen vielleicht hilft der beim Lösen..
LG Flo
---------------
Private Sub Grundwerkstoff_Change()
Worksheets("Pulver vs Grundwerkstoff").Activate
Grundwerkstoff.List = Range("B7:B14").Value
Dim g As Long
Dim tbl2 As ListObject
Dim z As Long
Set tbl2 = Tabelle3.ListObjects("Grundwerkstoff")
For g = 5 To tbl2.DataBodyRange.Rows.Count
If Grundwerkstoff.Value = tbl2.DataBodyRange(g, 2).Value Then
For z = 3 To tbl2.DataBodyRange.Columns.Count
If tbl2.DataBodyRange(g, z) > 0 Then
Bauteildurchmesser.AddItem tbl2.DataBodyRange(g, z)
Range("B23") = g
End If
Next z
Exit For
End If
Next g
End Sub
Private Sub Bauteildurchmesser_Change()
Pulvervorschläge1.Clear
Worksheets("Pulver vs Grundwerkstoff").Activate
Dim tbl3 As ListObject
Dim v As Long
Dim g As Long
Set tbl3 = Tabelle3.ListObjects("Grundwerkstoff")
g = Range("B23")
For v = 3 To tbl3.DataBodyRange.Columns.Count
If Bauteildurchmesser.Value = tbl3.DataBodyRange(g, v) Then
Pulvervorschläge1.AddItem tbl3.DataBodyRange(1, v)
End If
Next v
End Sub
|