Private Sub Grundwerkstoff_Change()
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