Hallo,

ich glaub ich bin vor lauter Stunden suchen schon blind und dachte ich frag mal hier. Oft sehen 4 augen ja besser als 2. 

Ich hab ein Programm dass mir in Userform1 Parameter ließt aus einer Tabelle und sobald ich aus der Tabelle zb werkstoff Zeile 5 gewählt habe und dann durchmesser  Spalte 8, gibt er mir das passende Pulver aus der ersten Zeile und spalte 8. 
nun habe ich eingestellt, dass er mir die Pulvervorschläge in einer Listform zwischenspeichert. Mein Plan war danach diese in eine kleine Tabelle zu schicken mit Range("zugehöriger Tabellenplatz" )= Pulvervorschläge, und diese dann wieder in UF2 Abzurufen (über Rowsource). Aber es speichert mir meine Einträge nicht in die Tabelle und ich weiß nicht woran es liegt.. 

Wie gesagt ich suche schon seit locker 3 h und steh irgendwie bisschen auf dem schlauch.. 

lg und danke im vorraus. 

Private Sub Grundwerkstoff_Change()
'Alles für Userform 1
Bauteildurchmesser.Clear


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 = "NR" Then
 End If
 If Bauteildurchmesser.Value = "ND" Then
 End If
      If Bauteildurchmesser.Value = tbl3.DataBodyRange(g, v) Then
             Pulvervorschläge1.AddItem tbl3.DataBodyRange(1, v)
            End If
 Next v


End Sub


Private Sub Weiter_Click()

Worksheets("FormularStarten").Activate


Range("K3") = Bauteil
Range("K4") = Bereich
Range("K5") = Grundwerkstoff
Range("K6") = Bauteildurchmesser
Range("K7") = Pulvervorschläge1

UserForm1.Hide

UserForm2.Show