Machr díky moc , za toto mám rád túto poradňu... zas som sa niečo naučil
L-Core takže bodku môžeme vynechať:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If (Target.Column <> 1 _
And Target.Column <> 7 _
And Target.Column <> 8 _
And Target.Column <> 9 _
And Target.Column <> 15) _
Then Exit Sub
Target = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".20" & Right(Target, 2)
Application.EnableEvents = True
End Sub