04.01.2018, 10:02
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:
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.
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
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