Hi,
ich habe eine userform erstellt, mit der man ein Produkt aus einer Tabelle raussuchen kann. Wenn das Produkt vorhenden ist, werde ich auf eine zweite von mir erstellte userform weitergeleitet. Hier werden dann die Daten aus der Tabelle übertragen, so dass ich alle informationen sehen kann und ggf. ausbessern und speichern kann. Nun mein Problem: Ich kann die erste userform öffnen und ein produkt eingeben, allerdings werde ich nicht in die zweite userform weitergeleitet. Hier noch der Code:
Private Sub Cancel_Click()
Unload meinFormular2
End Sub
Public Sub Enter_Click()
Worksheets("PrdData Current").Select
Dim x As Variant
t = Sheets(4).UsedRange.Rows.Count
x = TextBox1
temp = 0
For p = 6 To t
If Cells(p, 6) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload meinFormular2
zeile = p
meinFormular3.Show
Else
MsgBox "Product does not exist!", vbCritical
TextBox1 = ""
End If
End Sub
Danke für die Hilfe schonmal
Gruss
Philipp
|