Berechnung über TextBox "entschärfen"
05.03.2007 11:27:00
Blade
ich gebe über eine TextBox eine Anzahl von Personen an, klicke ok und alles ist gut.
Überspringe ich jedoch diese TextBox im Formular ohne etwas einzutippen, erscheint folgender Fehler "Laufzeitfehler 13, Typen unverträglich. (Fett gekenzeichnet) Wie kann ich das ganze entschärfen, sodass ich ohne etwas eintippen zu müssen über die Textbox springen kann.
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ergebnis As Double
'Berechnung Gesamtpreis
Select Case TextBox11.Value
Case 10 To 14: Ergebnis = TextBox11.Value * 15
Case 15 To 29: Ergebnis = TextBox11.Value * 13
Case 30 To 999: Ergebnis = TextBox11.Value * 11
End Select
Range("H101") = Ergebnis
<b>Range("G101") = Ergebnis / TextBox11.Value</b>
End Sub
Anzeige