Wenn TB leer ist kommt ein Fehler..
17.06.2006 15:03:56
Blade
rivate
Sub TextBox26_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ergebnis As Double
Select Case TextBox26.Value
Case Else: Ergebnis = 10 * TextBox26.Value
End Select
Range("H103") = Ergebnis
Range("G103") = Ergebnis / TextBox26.Value
End Sub
Wenn ich in TextBox26 nichts eintrage und auf OK klicke, kommt der Fehler: Laufzeitfehler 13.
Ich vermute mal das man jetzt sagen muss, wenn nichts drin dann nicht rechnen oder?
Anzeige