Dateformat

This just returns the daynumber, not the formati wish. Why oh Why. Please
help
With ActiveCell
.Value = "*"
.Offset(0, 1).Value = DTPicker1
ActiveCell.NumberFormat = "dd-mm-yyyy"
.Offset(0, 3).Value = Val(txtMember)
End With

Hello Kjeldc,

This should work for you.

With ActiveCell
.Value = "*"
.Offset(0, 1).Value = DTPicker1
.Value = Format(.Value, "dd-mm-yyyy")
.Offset(0, 3).Value = Val(txtMember)
End With

Hope this helps,
Leith Ross

don't you want to format the cell containing the date?

With ActiveCell
.Value = "*"
.Offset(0, 1).Value = DTPicker1
.Offset(0,1).NumberFormat = "dd-mm-yyyy"
.Offset(0, 3).Value = Val(txtMember)
End With

--
Regards,
Tom Ogilvy


"Kjeldc" <[email protected]> wrote in message
news:[email protected]...
>
> This just returns the daynumber, not the formati wish. Why oh Why. Please
> help
> With ActiveCell
> .Value = "*"
> .Offset(0, 1).Value = DTPicker1
> ActiveCell.NumberFormat = "dd-mm-yyyy"
> .Offset(0, 3).Value = Val(txtMember)
> End With

Thanks a lot. Somehow I had the idea, that .offset(0,1) WAS the activecell.

"Tom Ogilvy" skrev:

> don't you want to format the cell containing the date?
>
> With ActiveCell
> .Value = "*"
> .Offset(0, 1).Value = DTPicker1
> .Offset(0,1).NumberFormat = "dd-mm-yyyy"
> .Offset(0, 3).Value = Val(txtMember)
> End With
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Kjeldc" <[email protected]> wrote in message
> news:[email protected]...
> >
> > This just returns the daynumber, not the formati wish. Why oh Why. Please
> > help
> > With ActiveCell
> > .Value = "*"
> > .Offset(0, 1).Value = DTPicker1
> > ActiveCell.NumberFormat = "dd-mm-yyyy"
> > .Offset(0, 3).Value = Val(txtMember)
> > End With
>
>
>