Datumsformatierung im Makro

Question

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

Answer 1

Hallo,

ändere diese Zeile

Sheets("Protokoll").Cells(rr, s).Value = Str(Date)

in

Sheets("Protokoll").Cells(rr, s).Value = Date

Gruß
Rainer

Answer 2

Hallo noch mal,

etwas eleganter wäre

Option Explicit

Private Sub Worksheet_Change(ByVal r As Range)
Dim s
Dim rr

s = r.Column
rr = r.Row
With Sheets("Protokoll").Cells(rr, s)
.Value = Date
.NumberFormat = "dd/mm/"
End With

End Sub

Gruß
Rainer

Answer 3

Hallo Rainer,

Vielen Dank
mfg

Wolfgang