MsgBox-Rückmeldung
15.10.2002 12:09:57
Gerhard S.
ich hab ein kleines Problem mit der Rückmeldung einer Eingabe der InputBox, in eine MsgBox.
Details, in eine InputBox werden die Urlaubstage eingetragen, wo dann, nach einer Abfrage ob alles Richtig ist, in Zelle "B1" eingetragen. Nun sollte mir aber die MsgBox den eingetragenen Wert nochmal anzeigen, mit dem Text "xx Tage sind Resturlaub". Wenn es dann aber keine grossen Umstände macht, sollte bei "Nein", die Inputbox wieder erscheinen, um eine erneute Eingabe zu machen. Hier der Code:
Sub BoxRückmeldung()
Dim Eingabe, Var$
Eingabe = InputBox("Bitte die restlichen Tage eintragen:" & Chr(10) & "Verbrauchte Tage mit Minus ( z.B. -5 ) davor:", "Resturlaubstage")
If Eingabe = "" Then Exit Sub
Var = Eingabe
Var = Mid(Var, 3, 1)
sTitle = "Alles Richtig ? "
MsgBox "Richtig eingetragen ?", vbQuestion, sTitle 'Hier sollte die MsgBox den wert anzeigen
Range("B1") = Eingabe
End Sub
mfg
Gerhard S.
Anzeige