fehler bei der Berechnung
16.01.2013 18:12:31
Hans
ich soll eine kleine Berechnung programieren und habe schon mehrere Versuche gestartet, finde aber leider den Fehler nicht. Hat von euch jemand eine Idee?
Es soll über die Combobox das Produkt (hier Blumen) ausgewählt werden und dadurch im Textfeld "Einzelbetrag" der Einzelpreis des Produkts abgebildet werden. Dann mit der Stückzahl multipliziert werden und fertig ist die Laube. Ist sie aber leider nicht :-(
Private Sub cmdBerechnen_click()
'Variablendeklaration
Dim strProdukt As String
Dim intStückzahl As Integer
Dim intEinzelbetrag As Integer
Dim intRechnungsbetrag As Integer
Dim intMwst19 As Integer
Dim intMwst7 As Integer
'Zuordnung Produkte und Preise
Select Case strProdukt
Case Is = "Gerbera"
intEinzelbetrag = "2,50"
Case Is = "Nelken"
intEinzelbetrag = "2,00"
Case Is = "Rosen"
intEinzelbetrag = "3,00"
Case Is = "Sonnenblumen"
intEinzelbetrag = "5,00"
Case Is = "Tulpen"
intEinzelbetrag = "1,50"
Case Else
End Select
With Me
strProdukt = cboProdukt
intStückzahl = txtAnzahl
intEinzelbetrag = txtEinzelbetrag
intRechnungsbetrag = Format$(txtRechnungbetrag, "#,##0.00 ")
intMwst19 = Format$(optMwSt19, "1,19")
intMwst7 = Format$(optMwSt7, "1,07")
If .optMwSt19.Value = True Then
intRechnungsbetrag = intStückzahl * intEinzelbetrag * intMwst19
ElseIf .optMwSt7.Value = True Then
intRechnungsbetrag = intStückzahl * intEinzelbetrag * intMwst7
End If
End With
'Berechnung des Endbetrags
intRechnungsbetrag = intStückzahl * intEinzelbetrag
End Sub
Gruß Hans