Moin,
Ich hab ein kleines Problem, bei der Programmierung meines Taschenrechners(Programmiert in VBA Userform). Es gibt 3 TextBoxen In TextBox 1 und 2 werden die miteinander zu verechnenden Zahlen eingegeben und in der 3. wird das Ergebnis angezeigt. Nachdem ein Operator geklickt wurde soll die Eingabe in der 2 TextBox geschiehen Jetzt folgendes:
Ich habe für die Buttons die Variable : Dim operatorclick As Boolean, dieser wird beim Click eines Operators auf True gesetzt.
Habe also beim Additions button :
Public Sub Addition_Click()
operatorclick = True
If operatorclick = True Then
TextBox2.SetFocus
TextBox1.Enabled = False
Soweit sogut, nur werden die Zahlen dennoch in Textbox1 geschrieben, der Debugger zeigt mir das in Zahl 1 der Wert vom operatorclick nicht auf True gesetzt wurde ( Also der Wert(true) von der variable wurde nicht in die folgenden Subs übernommen) Jetzt ist die Frage, was ich machen muss damit der Wert übernommen wird? Und noch hier der Code von Zahl1 :
Public Sub Zahl1_Click()
zahlclick = "1"
If operatorclick = True Then
TextBox2.Text = TextBox2.Text + zahlclick
Else
TextBox1.Text = TextBox1.Text + zahlclick
End If
Ich hab ein kleines Problem, bei der Programmierung meines Taschenrechners(Programmiert in VBA Userform). Es gibt 3 TextBoxen In TextBox 1 und 2 werden die miteinander zu verechnenden Zahlen eingegeben und in der 3. wird das Ergebnis angezeigt. Nachdem ein Operator geklickt wurde soll die Eingabe in der 2 TextBox geschiehen Jetzt folgendes:
Ich habe für die Buttons die Variable : Dim operatorclick As Boolean, dieser wird beim Click eines Operators auf True gesetzt.
Habe also beim Additions button :
Public Sub Addition_Click()
operatorclick = True
If operatorclick = True Then
TextBox2.SetFocus
TextBox1.Enabled = False
Soweit sogut, nur werden die Zahlen dennoch in Textbox1 geschrieben, der Debugger zeigt mir das in Zahl 1 der Wert vom operatorclick nicht auf True gesetzt wurde ( Also der Wert(true) von der variable wurde nicht in die folgenden Subs übernommen) Jetzt ist die Frage, was ich machen muss damit der Wert übernommen wird? Und noch hier der Code von Zahl1 :
Public Sub Zahl1_Click()
zahlclick = "1"
If operatorclick = True Then
TextBox2.Text = TextBox2.Text + zahlclick
Else
TextBox1.Text = TextBox1.Text + zahlclick
End If