Userform Textbox
21.09.2021 21:36:27
Sandra
ich habe ein Programm in dem die Kapazität von Maschinen berechnet wird.
Hierzu habe ich eine Zelle mit einer Formel belegt, die eine Wenn-Abfrage die je nach Durchlauf eine Maschinengröße ausgeben soll.
Der Durchlauf soll vom Anwender in eine Textbox auf einer Userform eingetragen werden.
Und dann soll auf der Userform die Empfohlene Maschinengröße ausgegeben werden.
Allerdings klappt das nicht...
Ich hätte gern, dass gleich nach Eingabe des Durchlaufes die Maschinengröße ausgeben wird. Aber die berechnet sich erst, wenn ich auf den Commandbutton "Wert übernehmen" klicke. Und die userform schon geschlossen ist.
Anbei noch mein Code:
(Hierdurch wird die Userform aktiviert, ich brauche die Abfrage, weil einige Anwender den Durchlauf nicht kennen)
s = MsgBox("Ist das maximale Durchlau bekannt?", vbYesNo)
If s = vbYes Then
NWP_Input_Maschinengroesse.TextBox1.Text = Worksheets("Start").Range("AA2").Value (klappt nicht)
NWP_Input_Maschine.TextBox2.Text = Worksheets("Start").Range("F2").Value (klappt)
NWP_Input_Rohrechengut.Show
Else
Code der USerform:
'Übernehmen
Private Sub CommandButton1_Click()
Frei
Range("AA1").Value = TextBoxRechengut.Value
Unload Me
End Sub
Private Sub TextBoxRechengut_Change()
Frei
Range("AA1").Value = TextBoxRechengut.Value
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Bitte verlassen Sie das Dialogfeld mit den Schaltflächen!"
Cancel = True
End If
End Sub
VG
Sandra
