inputbox nur zahl rein
28.10.2006 09:26:20
tina
ich möchte errechnen lassen, wie lange man noch arbeiten muss, bis die rente erreicht ist.
die daten kommen über 2 inputboxen rein.
wenn nun aber der anwender statt einer zahl, einen buchstaben oder sonst irgendwas reintippt,kommt fehlermeldung.
wie kann ich das in meinem code abfangen.
Sub Test()
Dim Alter, Rente, Restjahre As Integer
Alter = InputBox("Geben Sie Ihr Alter ein:", "Berechnung der Jahre bis zur Rente")
Rente = InputBox("Mit wieviel Jahren ist ihr Rentenalter erreicht?", "Mit wieviel Jahren...")
Restjahre = Rente - Alter
MsgBox "Sie müssen noch " & Restjahre & " Jahre bis zur Rente arbeiten", _
vbOKOnly + vbInformation, "Berechnung bis zur Rente"
End Sub
vielen dank für eure hilfe
LG Tin@