Thema Datum  Von Nutzer Rating
Antwort
Rot Formulieren
 22.11.2006 10:08:26 Onno
NotSolved
22.11.2006 10:47:27 Rasta
NotSolved
24.11.2006 11:24:10 Onno
NotSolved
Blau ...
 27.11.2006 05:56:40 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Onno		 Datum:
22.11.2006 10:08:26		 Views:
2270		 Rating:
     
Antwort:
  Ja
Thema:
Formulieren
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formulieren
 22.11.2006 10:08:26 Onno
NotSolved
22.11.2006 10:47:27 Rasta
NotSolved
24.11.2006 11:24:10 Onno
NotSolved
Blau ...
 27.11.2006 05:56:40 Rasta
NotSolved