Ich habe für meine Tochter ein kleines Rechnenprogramm erstellt, es funktioniert einwandfrei. Leider ist die Schrift der Inputbox sehr klein. Ich meine das sie auch nicht verändert werden kann. Also versuchte ich die Inputbox in ein Bezeichnungs und Textfeld einer Userform unterzubringen. Leider komme ich da nicht weiter.
Das ist das Makro welches funktioniert:
Sub Plus()
Dim zahl1 As Integer, zahl2 As Integer
zahl1 = Rnd() * 10
zahl2 = Rnd() * 10
erg = InputBox("Wieviel ist " & zahl1 & "+" & zahl2 & "", "Hallo Lena")
If erg = zahl1 + zahl2 Then
UserForm3.Show
Else
UserForm2.Show
End If
End Sub
Im veränderten Makro sollte die Frage in ein Bezeichnungsfeld ausgegeben und das Ergebnis vom Benutzer in ein Textfeld eingegeben werden. Anschließend muß mit
OK (Befehlschaltfläche) bestätigt werden, worauf eine andere Userform geöffnet wird.
Ist dies überhaupt möglich und wie könnte die Lösung aussehen.
So lautet mein Versuch der Leider nicht funktioniert. Bin noch Anfänger in VBA.
Private Sub CommandButton2_Click()
Dim zahl1 As Integer, zahl2 As Integer
zahl1 = Rnd() * 10
zahl2 = Rnd() * 10
userform4.Label1.Caption = "Wieviel ist" & "zahl1" & "+" & "zahl2"
erg = TextBox1.Value
If erg = zahl1 - zahl2 Then
UserForm1.Show
Else
UserForm2.Show
End If
End Sub
Private Sub CommandButton1_Click()
userform4.Show
End Sub
Danke schon im voraus
Thomas