Hallo Sabrina,

ungetestet:

Ersetze beide Subs deiner Datei durch

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("H5:H50")) Is Nothing Then
  Target = IIf(Target = "", "Eilt", "")
  Cancel = True
 ElseIf Not Intersect(Target, Range("E5:E50")) Is Nothing Then
  Target = IIf(Target = "", Date, "")
 End If
End Sub

Gruß der AlteDresdner