Überschuss eines Unternehmens
16.05.2023 16:32:05
Dosh10
Hallo liebes Forum,
ihr habt mir schon mit so manchem Problem geholfen und diesmal ist es wirklich albern... ;)
Ich möchte den Überschuss eines Unternehmens in Abhängigkeit der Monate ermitteln.
Das Unternehmen hat ein Startguthaben "x" auf dem Konto und monatlich feste Einnamen "m" und feste Ausgaben "b".
Ich möchte ein eine Textbox eine Monatszahl "t" eingeben und im Anschluss den aktuellen Kontostand ausgegeben bekommen.
Dim x As Double
Dim b As Integer
Dim m As Integer
Dim t As Long
Dim i As Long
b = 4200 'feste Ausgaben
m = 6300 'feste Einnahmen
t = TextBox1.Value 'Monatszahl
x = 4200 'Startguthaben
i = 1
Do While i = t
x = -b + m
i = i + 1
Loop
MsgBox x
Viielen Dank für eure Hilfe!