VBA: Listbox Wert multiplizieren und ausgeben
01.06.2015 16:25:39
Hans
Ich möchte gerne über eine Schaltfläche den Preis (in einer Listbox in Spalte 2) mit der Menge (txtMenge) multiplizieren und in ein Labelfeld (lblPreis) ausgeben. Zusätzlich soll der Preis noch 10% reduziert werden sollte es sich bei dem markierten Wert in der Listbox um z. B. "Gewürze" handeln (Optionsfeld Ja)
Habe so schon angefangen, bekomme aber bei der Ausgabe immer als Fehler "Typen unverträglich"
Private Sub cmdBerechnen_Click()
Dim Preis As Double
Preis = CDbl(Me.LstArtikel.Value) * CDbl(Me.TxtMenge.Value)
If Me.optJa.Value = True Then
Preis = Preis * 0.9
End If
lblPreis.Caption = Format(Preis, "#,##0.00")
End Sub
Anzeige