Hallo,
Ich habe ein Frage über Formularen.
Der Inhalt:
Ich habe jetzt ein Excel-Sheet mit 2 Inputs. Am Anfang habe ich zwei Input Buttons (Eingangs- und Ausgangsmoment) programmiert. Aber jetzt zeiht sich ein (neu) Problem. Ich brauche mehrere linken zwischen diese zwei Formularen/Funktionen.
1a. Die Button Ausgangmoment soll auch die Funktion/Prozedur hinter (Button) Eingangsmoment aktivieren.
'Ganze Funktion für Button EingangsDrehmoment
Public Sub cmdEingangsDrehmoment_Click()
'BerechnenEingang()
ThisWorkbook.Worksheets("Ansicht").Range("d11") = ausgangmoment
'Suchen und schreiben eingangmoment
ThisWorkbook.Worksheets("Ansicht").Range("d8") = Me.TextBox1
eingangmoment = Me.TextBox1.Text
1b. Er soll ein Link sein zwischen den beiden Sachen. Wenn eine Funktion in das eine Formular berechnet wird, muss die Funktion sich auch in das andere Formular ändern.
Public ausgangmoment As Integer
'Ganze Funktion für Button AusgangsDrehmoment
Public Sub cmdAusgangsDrehmoment_Click()
'BerechnenAusgang(
'Deklaration von Zahl ausgangmoment, suchen und schreiben eingangmoment
ThisWorkbook.Worksheets("Ansicht").Range("d11") = Me.TextBox2
ausgangmoment = Me.TextBox2.Text
'Aktivieren Subs Skalierung pro Gang
If ThisWorkbook.Worksheets("Ansicht").gang1.Value = True Then
If ThisWorkbook.Worksheets("Ansicht").Zug.Value = True Then
ausgangmoment = eingangmoment * Worksheets("Skalierung").Range("c2")
eingangmoment = ausgangmoment / Worksheets("Skalierung").Range("c2")
Else
ausgangmoment = eingangmoment * Worksheets("Skalierung").Range("d2")
eingangmoment = ausgangmoment / Worksheets("Skalierung").Range("d2")
End If
End If
UND SO WEITER
Selbstverständlich weiß ich dass Man ein Public Sub überall anrufen kann. Das habe ich auch probiert, aber die Link zwischen den Formularen funktioniert leider nicht, eine Zahl ändert sich nicht in beiden Formularen.
2. Ich meine damit ein Input von “ “. So es ist eigentlich kein Input. Man gibt ins Fenster ´Nichts´ ein und klickt auf O.K. Für Werte von z.B. 0 und > 300 hab ich schon ein Msg-Box programmiert, dass ist einfach. Aber es ist mich doch nicht mit Erfolg gegluckt für ’gar kein Input’.
'Abrundung Zahl ausgangmoment
ThisWorkbook.Worksheets("Ansicht").Range("d8") = Round(Me.TextBox2, 0)
If ausgangmoment > 300 Then MsgBox "Bitte ein Korrektes Zahl zwischen 0 und 300 Nm eingeben"
If ausgangmoment < 0 Then MsgBox "Bitte ein Korrektes Zahl zwischen 0 und 300 Nm eingeben"
Danke,
Mit freundliche Grüße,
Onno Waal
|