Datum in Lang mit Uhrzeit

[maine-coon]

Hallo liebe Experten dieses Forums,
ich habe ein kleines Problem, was ich nicht lösen kann.

Im nachfolgenden Code wird in die Zelle F1 das Datum eingetragen.
Das funktioniert erst Mal ohne Fehler. Aber die Uhrzeit bleibt bei 00:00 und wird nicht mit dargestellt.
Das will ich erreichen: Donnerstag 04.Januar 2018  09:58

Die Zelle F1 ist so formatiert:

Code:

TTTT  TT. MMMM  JJJJ     hh:mm

Im Code unten seht ihr auch eine Zeile mit CDATE. Wenn ich die nehme,
ist das Resultat erstmal richtig, aber dafür ist das Datum in Kurzform.
Sobald ich z.B. das dd.mm.yyyy verändere
kommt Fehler 13... Typen unverträglich.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Zellbereich = Intersect(Range("Monatsbereich"), Target)
If Not Zellbereich Is Nothing Then
   Cancel = True
   Application.Intersect(Target.EntireRow, Zellbereich).Interior.Color = vbYellow
   meldung = MsgBox("Soll der Wert aus der Tabelle des Monats" & vbNewLine & _
             Worksheets("Monat").Range("M2").Text & " von " & Worksheets("Monat").Range("M1") & vbNewLine & _
             "in die Tabelle Jahresübersicht kopiert werden?" & vbNewLine & _
             "" & vbNewLine & _
             "Wert kopieren", vbYesNo, "__")
      If meldung = vbNo Then
          Application.Intersect(Target.EntireRow, Zellbereich).Interior.Color = vbWhite
          Exit Sub
      End If

Rem Einfügen des Wert
      'Cancel = True
      Application.ScreenUpdating = False
      'Worksheets("Monat").Range("M36").Copy
      Worksheets("Überstunden").Activate
      ActiveCell.Value = Worksheets("Monat").Range("M36")
      Me.Activate
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      Application.Intersect(Target.EntireRow, Zellbereich).Interior.Color = vbWhite
      '[F1].Value = CDate(Format(Now, "dd.mm.yyyy   hh:mm"))
      [F1].Value = Date
  End If
End Sub

[Fennek]

Hallo,

es sollte eine Zeile reichen:

Code:

     Range("F1") = Format(Now, "DD.MM.YYYY hh:mm")
   

mfg

[maine-coon]

Jetzt funktioniert es. Vielleicht war das Cdate hier falsch.... Na egal...
Vielen Dank dafür.