Sub Steuern() 
 
 
Dim dblEingabe As Double 
Dim dblSteuer As Double 
 
 
dblEingabe = Val(Application.InputBox("Geben Sie bitte Ihr Jahreseinkommen" & _
  "an")) 'Anstatt Komma einen Punkt!!! 
 
 
 
If dblEingabe < 7665 Then 
MsgBox "Ihr Einkommen braucht nicht versteuert zu werden nach §32 EStG", _
  vbInformation + vbOKOnly, "Hinweis" 
dblSteuer = 0 
ElseIf dblEingabe >= 7665 And dblEingabe < 12740 Then 
 
dblSteuer = ((883.74 * ((dblEingabe - 7664) / 10000)) + 1500) * ((dblEingabe - _
  7664) / 10000) 
 
ElseIf dblEingabe >= 12740 And dblEingabe < 52152 Then 
dblSteuer = ((228.74 * ((dblEingabe - 12739) / 10000)) + 2397) * ((dblEingabe - _
  12739) / 10000) + 989 
 
ElseIf dblEingabe >= 52152 Then 
dblSteuer = 0.42 * dblEingabe - 7914 
 
End If 
 
' immer ganzzahlig Aufrunden
If round(dblsteuer) < dblsteuer then
    dblsteuer = round(dblsteuer)+1
else
    dblsteuer = round(dblsteuer)
end if
 
If dblSteuer > 0 Then MsgBox "Ihre Steuern betragen: " & dblSteuer & "" & _
  "Euro.", vbInformation + vbOKOnly, "Einkommenssteuer" 
 
 
 
End Sub

Zitat:

tja nur wie setze ich das um, sry hab erst 2 mal informatik im Leben gehabt und er will halt testen was wir drauf ham, aber ich weiss nicht so richtig wie ich es umsetzen soll.