Private Sub bclose_Click()
Unload Me
End Sub
Private Sub Tdauer_Enter()
Dim Tbetrag As Single
Dim I As Single
Dim Tdauer As Single
Tdauer1 = 0
If Tdauer >= 120 Then
For I = 120 To Tdauer
Tbetrag1 = Tbetrag1 + 0.05
Next I
End If
Tdauer = Tbetrag1
End Sub
Private Sub Tbewertung_Enter()
Dim Tbetrag2 As Single
Dim D As Single
Dim Tbewertung As Single
Tbewertung = 0
If Tbewertung >= 6 Then
For D = 6 To Tbewertung
Tbetrag2 = Tbetrag2 + 1
Next D
End If
Tbewertung = Tbetrag2
End Sub
Private Sub Tjahre_Enter()
Dim Tbetrag3 As Single
Dim B As Single
Dim Tjahre As Single
Tbetrag3 = 0
If Tjahre >= 1 Then
For B = 1 To Tjahre
Tbetrag3 = Tbetrag3 + 3.5
Next B
End If
Tjahre = Tbetrag3
End Sub
Private Sub Tbetrag_Change()
End Sub
Private Sub bgenerate_Click()
Tbetrag = Tbewertung + Tjahre + Tdauer
End Sub
Ich wäre sehr froh wenn jemand mir bisschen weiterhelfen könnte. danke im voraus.