HAllo Max,
du musst in deinem Makro die Zelle updaten
Sub Datum
Cells.Find(What:="PaymentDate", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Columns(ActiveCell.Column).Select
Selection.NumberFormat = "dd.mm.yyyy"
'Zelle aktualisieren!
Selection.Update
End Sub
Gruß Detlev
|