Sub datum_uhrzeit()
 name_des_blattes = ActiveSheet.Name
 hier_befindet_sich_die_maus_gerade = Selection.Address
 ActiveWorkbook.Worksheets(name_des_blattes).Range(hier_befindet_sich_die_maus_gerade).Value = Format(Now, "YYYY" & " " & "MM" & " " & "DD" & "      " & "hh" & ":" & "mm" & ":" & "ss")
End Sub