Sub Investor()
Dim Investor_Betrag_1 As Currency
Dim Investor_Betrag_2 As Currency
Dim Investor_Betrag_3 As Currency
Dim Investor_Steuer_1 As Double
Dim Investor_Steuer_2 As Double
Dim Investor_Steuer_3 As Double
Dim Investor_Anteil_1 As Double
Dim Investor_Anteil_2 As Double
Dim Investor_Anteil_3 As Double
Dim Auslage_Betrag
Dim Gesamt_Einlage_Beginn
Dim Gesamt_Einlage_Ende
Investor_Betrag_1 = 10000
Investor_Betrag_2 = 20000
Investor_Betrag_3 = 30000
Auslage_Betrag = 30000
Investor_Steuer_1 = 10
Investor_Steuer_2 = 12
Investor_Steuer_3 = 15
Gesamt_Einlage_Beginn = Investor_Betrag_1 + Investor_Betrag_2 + Investor_Betrag_3
If Gesamt_Einlage_Beginn > 0 Then
Investor_Anteil_1 = Investor_Betrag_1 / Gesamt_Einlage_Beginn
Investor_Anteil_2 = Investor_Betrag_2 / Gesamt_Einlage_Beginn
Investor_Anteil_3 = Investor_Betrag_3 / Gesamt_Einlage_Beginn
If Auslage_Betrag <= Gesamt_Einlage_Beginn Then
Gesamt_Einlage_Ende = Gesamt_Einlage_Beginn - Auslage_Betrag
Investor_Steuer_1 = Gesamt_Einlage_Ende * Investor_Anteil_1 * (Investor_Steuer_1 / 100)
Investor_Steuer_2 = Gesamt_Einlage_Ende * Investor_Anteil_2 * (Investor_Steuer_2 / 100)
Investor_Steuer_3 = Gesamt_Einlage_Ende * Investor_Anteil_3 * (Investor_Steuer_3 / 100)
Gesamt_Einlage_Ende = Gesamt_Einlage_Ende - (Investor_Steuer_1 + Investor_Steuer_2 + Investor_Steuer_3)
MsgBox "Restbetrag: " & Format(Round(Gesamt_Einlage_Ende, 2), "#,##0.00") & " EUR"
Else
MsgBox "Auslage größer als Einlage!"
End If
Else
MsgBox "Kein Betrag auf dem Konto!"
End If
End Sub