|
Option Explicit
Private Sub CommandButton1_Click()
Dim fa As Integer
Dim fensterpreis As Integer
Dim ergebnis1 As Long
Dim ergebnis2 As Long
Dim türpreis As Integer
Dim ta As Integer
Dim alles As String
Dim gesamtErgebnis As String
türpreis = 200
ta = TextBox1.Value 'TextBox 2
Label3 = TextBox1.Value
fensterpreis = 100
fa = TextBox2.Value 'TextBox 1
Label4 = TextBox2.Value
Label1 = fa * fensterpreis 'ergebnis 1
Label2 = ta * türpreis 'ergebnis 2
ergebnis1 = Label1.Value
ergebnis2 = Label2.Value
gesamtErgebnis = ergebnis1 + ergebnis2
alles = Label2.Value + " + " + Label1.Value + " = "
If IsNumeric(fa) = False Or IsNumeric(ta) = False Then
MsgBox ("falsche eingabe")
Else
TextBox5.Value = alles + gesamtErgebnis
End If
End Sub
|