Zeitstempel runden
Dirk
ich möchte gern, das mein Makro die Zeit auf 5 min rundet
wie stelle ich es an?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngC As Long
Dim pos As Integer
' Zeit
pos = InStr(Target.Cells(1, 1), "zz")
If pos > 0 Then
Target.Cells = Format(Now, "hh:mm")
End If
ErrExit:
Application.EnableEvents = True
End Sub
Dirk