VBA ( Word) tekstfelt 1 = tekstfelt 2 + 8 dage

Hej prøv følgende:

Private Sub TextBox1_LostFocus()

    If IsDate(TextBox1.Text) = True Then
        TextBox2.Text = DateAdd("d", 8, TextBox1.Text)
    Else
        MsgBox "Indtast dato", vbInformation, "Datofejl"
    End If

End Sub

/hiks

hej igen.

du kan lige få med kommentarer også, hvis du ikke er så skarp i VBA.

Private Sub TextBox1_LostFocus()

    If IsDate(TextBox1.Text) = True Then 'test for om det er en dato
        TextBox2.Text = DateAdd("d", 8, TextBox1.Text) 'dateadd(intervaltypen,antal af typen, oprindelig dato)
    Else
        MsgBox "Indtast dato", vbInformation, "Datofejl" 'vis fejlbesked
        TextBox1.SelStart = 0 'hvor skal markeringen starte
        TextBox1.SelLength = Len(TextBox1.Text) 'hvor lang er markeringen
        TextBox1.Select 'vælg textboxen
    End If

End Sub

/hiks