Datum en tijd samenvoegen

[Mansv1966]

Hallo Forum gebruikers,

Ik heb op het internet een stukje VBA gevonden die de datum en tijd in 2 verschillende cellen plaatst.

Mijn kennis op VBA is nul komma nul.
Wie weet hoe ik de datum en tijd in 1 cel geplaatst kan krijgen (dd-mm-jjjj uu:mm:ss)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
  If Target.Column = 1 Then
  If Target.Value <> "" Then
    Target.Offset(0, 6).Value = Date
    Target.Offset(0, 7).Value = Time
  Else: Target.Offset(0, 5).Value = ""
        Target.Offset(0, 6).Value = ""
  End If
  End If
  If Target.Column = 5 Then
  If Target.Value = "x" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
  Else: Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""

  End If
  End If
Einde:
End Sub

groetjes Mansv1966

 

[VenA]

Dat kan met

format(now, "mm-dd-yyyy hh:mm:ss")

Als je een voorbeeldbestand plaatst dan kan de gevonden code tot een paar regels gereduceerd worden.

 

[Mansv1966]

Dat kan met

format(now, "mm-dd-yyyy hh:mm:ss")

Als je een voorbeeldbestand plaatst dan kan de gevonden code tot een paar regels gereduceerd worden.

En waar moet ik dat plaatsen in voorbeeld wat ik heb

 

[VenA]

Het quoten is niet nodig. Je kan gewoon op de grote blauwe knop 'Reageer op bericht' klikken.
Welk voorbeeld?
Bestudeer de bijlage maar even

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1 Or Target.Column = 5) And Target.Count = 1 Then
  Select Case Target.Column
    Case 1
      Target.Offset(, 6).Resize(, 3) = IIf(Target.Value <> "", Array(Date, Time, Format(Now, "mm-dd-yyyy hh:mm:ss")), Array("", "", ""))
    Case 5
      Target.Offset(, 1).Resize(, 3) = IIf(Target.Value = "x", Array(Date, Time, Format(Now, "mm-dd-yyyy hh:mm:ss")), Array("", "", ""))
  End Select
End If
End Sub

 

[Mansv1966]

Sorry ik ben nieuw hier dus ik weet nog niet hoe goed alles werkt hier.

Ik heb je code bekeken en je voorbeeld bestand dank daar voor kan ik denk ik wel verder mee