Hallo Leute,

ich brauche dringend Hilfe bei einer VBA aufgabe.

und zwar möchte ich mehrer zwischenergebnisse die durch eingabe in ein textfeld gespeichert werden in einem neuen textfeld als summe erscheinen lassen.

Bisher lautet mein quellcode:

Private Sub CommandButton1_Click()
Dim fa As Integer
Dim fensterpreis As Integer
Dim ergebnis1 As Integer
Dim ergebnis2 As Integer
Dim türpreis As Integer
Dim ta As Integer
Dim alles As Integer

türpreis = 200
ta = TextBox2.Value
fensterpreis = 100
fa = TextBox1.Value
ergebnis1 = fa * fensterpreis
ergebnis2 = ta * türpreis
alles = ergebnis1 + ergebnis2
alles = ausgabe1.Value

If IsNumeric(fa) = False Or IsNumeric(ta) = False Then MsgBox ("falsche eingabe")
Else: ausgabe1.Value = alles
End If


End Sub

vieleen dank füreure Hilfe