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
|