AW: TextBox Abort oder Cancel besser noch InputBox
28.11.2005 23:40:15
Gregor
Danke Aton
das hat mir weiter geholfen:
Private Sub TextBox01b_AfterUpdate()
If TextBox01b = 0 Or TextBox01b = "" Then
' TextBox01b = MsgBox("Bitte geben Sie eine Zahl > 0 ein !!!", 48, "Eingabefehler")
TextBox01b = Application.InputBox("Bitte geben Sie eine Zahl > 0 ein !!!", "Eingabefehler", ".", , , , , 1)
GoTo 1
Else
1:
Sheets("Berechnung").Range("b31").Value = TextBox01b.Value
Sheets("Berechnung").Range("b39") = Format(Sheets("Berechnung").Range("c9"), "#")
AktualisiereEingaben
AktualisiereBerechnungen
End If
End Sub
Gregor