Hallo Helfer,
Dieses Makro ist ursprünglich aus einem anderen Threat und nach meinen Bedürfnissen angepasst. Das Datum wird aber im Format:
TT.MM.JJJJ ausgegeben.
Wie muss die FETT geschriebene Zeile geändert werden, damit die Formatanweisung tatsächlich ausgeführt wird?
Option Explicit
Private Sub Worksheet_Change(ByVal r As Range)
Dim s
Dim rr
s = r.Column
rr = r.Row
Sheets("Protokoll").Cells(rr, s).Value = Str(Date)
Sheets("Protokoll").Cells(rr, s).NumberFormat = "dd/mm/"
End Sub