Hi, folgende Aufgabe muss ich lösen: Nach Eingabe von zwei Zahlen fragt das Programm ob plus oder minus gerechnet werden muss und gibt dann das entsprechende Ergebnis aus... Ich habe folgende Lösung:
Public Zahl1, Zahl2, Ergebnis As Long
Public Art As String
Sub Zahlen()
Zahl1 = InputBox("Geben Sie die erste Zahl ein: ")
Zahl2 = InputBox("Geben Sie die zweite Zahl ein: ")
Art = InputBox("Sollen die Zahlen addiert oder subtrahiert werden? +/-")
If Art = "+" Then
Ergebnis = (Zahl1 + Zahl2)
Else
Ergebnis = (Zahl1 - Zahl2)
End If
MsgBox ("Das Ergebnis lautet " & Ergebnis & ".")
End Sub
Das Problem ist, dass das Ergebis, wenn Zahl1 & 2 jeweils 1 sind, ja logischerweise 2 sein müsste...allerdings kommt halt 11 raus. Also er fügt die Zahlen einfach zusammen.
Kann mir da jemand helfen?? Danke im Voraus :)