Ach es geht um Word.
Sollte man diese Info nicht als erstes rausgeben, wenn man in einem Forum fragt? ;o)
Dim dtm As Date
dtm = DateSerial(2015, 3, 30) 'CDate("2015-03-30")
With ThisDocument.Tables(1)
.Cell(1, 1).Range.Text = Choose(Weekday(dtm, vbMonday), "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
.Cell(1, 2).Range.Text = Format$(dtm, "ddd dd.mm.yyyy")
End With
|