Keine Eingabe!
02.06.2005 08:29:09
Sammy
Wenn im Eingabefenster keine Eingabe in einem Feld gemacht wird, wie kann ich Fehlermeldung vermeiden und gegebenfalls z.B. " - " dafür ausgeben lassen?
If MsgBox("Vertrag eingeben?", vbQuestion + vbYesNo, "Frage...!") = vbYes Then
With Sheets("laufende Verträge")
z = 1
While .Cells(z, 2) <> ""
z = z + 1
Wend
.Cells(z, 2) = Eingabetest.txtVertragspartner
.Cells(z, 3) = Eingabetest.txtVertragsbeginn
.Cells(z, 5) = CInt(Eingabetest.txtVertragslaufzeit)
.Cells(z, 7) = CInt(Eingabetest.txtKündigungsfrist)
.Cells(z, 8) = Eingabetest.txtOrdentlichekündigung
.Cells(z, 12) = CInt(Eingabetest.txtOptionslaufzeit)
.Cells(z, 13) = CInt(Eingabetest.txtOptionskündigungsfrist)
.Cells(z, 14) = Eingabetest.txtespotting
End With
End If
Unload Me
Berechnen
End Sub
Viele Grüße
Sammy