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
|