Clever-Excel-Forum

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!

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.

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

gu-till

Jonas0806

RPP63