Moin Leute,
anbei eine kurze Aufgabenstellung. Ich konnte den ersten Teil bereits erfolgreich lösen, leider scheitere ich aber daran den Inputwert mit der zugehörigen prozentzahl zu multiplizieren.
Folgende Aufgabenstellung:
Schreiben Sie eine Prozedur zur Ermittlung des Zinssatzes für eine Geldanlage. Liegt der anfänglich angelegte Geldbetrag über 10.000,00 €, beträgt der Zinssatz 3 %, liegt er über 20.000,00 €, beläuft sich der Zinssatz auf 3,5 % ansonsten liegt er bei 2,75 %. Verwenden Sie eine If-Else-Anweisung. Der Eingangsbetrag ist über eine Inputbox zu erhalten. Der gültige Zinssatz und das Resultat ist über eine MsgBox anzuzeigen.
Mein Fortschritt:
Sub test2()
Dim Zahl As Double
Zahl = InputBox("Gebe Sie eine Zahl ein")
If Zahl > 20000 Then
MsgBox (("3,5%"))
ElseIf Zahl > 10000 Then
MsgBox (("3%"))
ElseIf Zahl <= 10000 Then
MsgBox (("2,75%"))
End If
End Sub