Also:
Eigentlich wird nur in einem Modul gearbeitet. Im Code der Userform selbst werden nur die Aktionen aufgeführt wie beispielsweise die Funktionen der einzelnen Button (spinbutton,..) Das einzige, was daran interessant ist, wäre dieser Abschnitt:
Private Sub UserForm_Activate() 'Direkt nach dem Öffnen der Userform geschieht folgendes:
If (ALT.ALT_Brückenart = "Vollbrücke Passiv") Then
TeBo_VBP_Minimum_Massenstrom.Value = CDbl(ALT.ALT_MMinPrüf)
TeBo_VBP_Maximum_Massenstrom.Value = CDbl(ALT.ALT_MMaxPrüf)
TeBo_VBP_Minimale_Massenstromänderung.Value = CDbl(ALT.ALT_Minimale_Massenstromänderung)
TeBo_VBP_P1.Value = CDbl(ALT.ALT_P1_Eingabe)
TeBo_VBP_P2_Minimum.Value = CDbl(ALT.ALT_P2_Minimum)
TeBo_VBP_P2_Maximum.Value = CDbl(ALT.ALT_P2_Maximum)
TeBo_VBP_P3_Minimum.Value = CDbl(ALT.ALT_P3_Minimum)
TeBo_VBP_P3_Maximum.Value = CDbl(ALT.ALT_P3_Maximum)
TeBo_VBP_Temperatur.Value = CDbl(ALT.ALT_Temperatur)
VBP_Tebo_Interface.Value = "Die im Hauptmenü eingegebenen Werte wurde erfolgreich übertragen. Starten Sie nun die Berechnung oder passen Sie die Prozesswerte in den Feldern auf der linken Seite an. Die Ergebnisse werden im unteren Bereich des Formulars ausgegeben."
End If
End Sub
Hier werden die Werte der Textboxen der zweiten Userform beschrieben. Und das funktioniert auch ohne Probleme. Die Werte stammen aus dem Modul der ersten Userform.
Nur kann ich danach nicht mehr auf die Werte zugreifen..
|