Case Anwendung
26.10.2006 17:44:02
selma
Ich möchte gern, dass eine Hinweisbox erscheint, wenn Wert größer 30 und kleiner 100. Ich weiss jedoch nicht wie ich die Caseformel mit "und" verknüpfe.
Dies möchte ich gern über eine Case-Anweisung.
Folgenden Code habe ich bereits.
Private Sub textbox67_AfterUpdate()
Case Is <= 1
Me.TextBox67.Text = Format(CDbl(Me.TextBox67) * 1, "##,##0.00") & " %"
Case Is <= 100
Me.TextBox67.Text = Format(CDbl(Me.TextBox67), "##,##0.00") & " %"
Case Is > 30
MsgBox "Teilkapitalisierung mit max. 30% möglich"
Me.TextBox67.Text = Format(CDbl(100), "##,##0.00") & " %"
Case Is > 100
MsgBox "Unzulässiger Prozentwert"
Me.TextBox67.Text = Format(CDbl(100), "##,##0.00") & " %"
End Select
End Sub
Wer kann mir den Code ergänzen?
Viele Grüsse
selma