12. april 2013 - 10:32Der er
2 kommentarer og 1 løsning
Datoberegning i tekstbokse på userform
Word 2010
I tekstboks 1 indsættes dags dato (12-04-2013) i tekstboks 2 indsættes et tal eks. 10, herefter vises dato 10 dage efter i tekstboks 3. Tekstboks 1 og 3 skal datoformateres og hver gang man ændrer i tekstboks 2 (change), ændres datoen i tekstboks 3.
Private Sub TextBox2_Change() If Me.TextBox2 <> "" Then Me.TextBox3 = Format(DateAdd("d", Me.TextBox2, Me.TextBox1), "dd-mm-yyyy") End If End Sub Private Sub UserForm_activate() Me.TextBox1 = Format(Now, "dd-mm-yyyy") End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.