If Abfrage Textboxen
19.07.2006 12:10:18
Frederic
ich müsste 3 If-Abfrage in einer Textbox steuern.
Im Moment sieht das Makro so aus:
Private Sub Berechnen()
Dim DoWert As Double
If betrag1 = "11" Then
DoWert = DoWert - DoWert / 1.16
stbetrag1 = Format(DoWert, "0.00")
ElseIf betrag1 = "12" Then
DoWert = DoWert - DoWert / 1.07
stbetrag1 = Format(DoWert, "0.00")
End If
End Sub
D.h. er soll folgendes berechnen:
Wenn in der Textbos "stschl1" eine 11 steht soll er "DoWert = DoWert - DoWert / 1.16" rechnen, bei einer 12 "DoWert = DoWert - DoWert / 1.07" rechnen und wenn leer, dann soll 0.00 drin stehen.
Kann mir jemand sagen, wie das hinzugkriegen ist? Bei mir klappts nicht.
Gruß.
Frederic