wie kann man die Formel für =(Heute) durch WordArt darstellen oder dem zuordnen so das, dass Aktuelle Datum mit Word art dargestellt wird.
Gruß Alex
Sub Makro1()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Hallo Alex, heute ist der " & Date & " und Du siehst wieder klasse aus !", _
"Arial Black", 36#, msoFalse, msoFalse, 172.5, 155.25).Select
Application.CommandBars("WordArt").Visible = False
Range("a1").Select
End Sub