Statische Zeit bei Datum in Makro hinzufügen

[gu-till]

Hallo Community,

Ich habe ein Makro erstellt dass nachdem ein Artikel per Barcode Scanner in A1 gescannt wurde mir dann automatisch das Datum in B1 wiedergibt. Nun bräuchte ich zudem noch in C1 eine statische Uhrzeit wann der Artikel gescannt wurde. Der Code sieht bisher wie folgt aus:

Code:

Sub makro1(ByVal Target As Range)
    Dim z As Long
    z = Target.Row
    If Target.Column = 1 Then
        If Target.Value <> "" Then
            Cells(z, 2).Value = CDate(Date)
        End If
    End If
End Sub

Es wäre toll wenn mir hierbei jemand helfen könnte. Bin leider noch recht unerfahren mit VBA.
Danke euch!

[Jonas0806]

Hallo,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(1)) Is Nothing Then
       With Target
           .Offset(0, 1).Value = Date
           .Offset(0, 2).Value = Now
       End With
   End If
End Sub

Der Code wird automatisch ausgeführt, wenn Du einen Wert in Spalte A änderst/einfügst.

[RPP63]

Moin!
Zunächst ist CDate(Date) doppelt gemoppelt und somit ist CDate() überflüssig.

Sehe gerade, dass Jonas geantwortet hat.
Dazu ein Zusatz:
Now ist Datum/Zeit
Ich würde Time nehmen. ;)

Gruß Ralf