Code Erweitern
14.02.2017 23:48:25
Thomas
Ich möchte diesen gefundenen Code erweitern.
Es soll nicht nur Datum, sondern auch die Zeit angezeigt werden.
Irgendwie bekomme ich das nicht hin.
Hier mal der Code:
If ActiveSheet.Name = "Test" Then 'Tabellenname anpassen
With Range("P39") 'Zelladresse anpassen
.WrapText = True
.FormulaR1C1 = "=""zuletzt gedruckt: ""&TEXT(TODAY(),""TT.MM.JJJJ"")"
.Value = .Value
End With
End If
End Sub
Danke für die Hilfe
gruß
Tommy