bei dem folgendem code würde ich gerne einen genauen rechnungsbetrag kalkulieren, doch das system rechnet nur mit ganzen zahlen ohne kommastellen, doch warum?
hier der code:
Option Explicit
Private Sub CommandButton1_Click()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Dim Zahl5 As Integer
Dim Summe As Integer
Summe = 0
Summe = Unterprozedur1(Zahl1) + Unterprozedur2(Zahl2) + Unterprozedur3(Zahl3) + Unterprozedur4(Zahl4) + Unterprozedur5(Zahl5)
Range("F42") = Summe
End Sub
Function Unterprozedur1(GrundgebührT_Net_Standard)
If CheckBox1 = True Then
Unterprozedur1 = 13.72
Else
Unterprozedur1 = 0
End If
End Function
Function Unterprozedur2(DSL768)
If CheckBox2 = True Then
Unterprozedur2 = 12.99
Else
Unterprozedur2 = 0
End If
End Function
Function Unterprozedur3(DSL1500)
If CheckBox3 = True Then
Unterprozedur3 = 29.58
Else
Unterprozedur3 = 0
End If
End Function
Function Unterprozedur4(Flatrate)
If CheckBox4 = True Then
Unterprozedur4 = 29.95
Else
Unterprozedur4 = 0
End If
End Function
Function Unterprozedur5(BetragGespräche)
Unterprozedur5 = TextBox1
End Function