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