Datum VBA ,Barcode scannen
Rene
Ich habe im Netz folgenden Code gefunden ,Vielen Dank an den Ersteller . die Frage hierzu ist folgende,
Wie kann ich Datum/Zeit in den vorhandenen Code einbinden
".Value = Format(Now(), "dd/mm/yy hh:mm")"?
Nach scannen des Barcodes möchte ich , das Scann zeit / datum ebenfalls mit weggeschrieben wird (in die nächste Spalte ).Hoffe die Frage ist einigermaßen verständlich ,vorab schon mal vielen Dank.
hier der code
Sub AChange(ByVal Target As String)
Dim zCountneu As Long, zCount As Long, Artikel As String
Dim Rx As Range
Worksheets("A").Activate
Artikel = CStr(Target)
zCountneu = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Rx = Worksheets("A").Range("A1")
zCount = PruefeArtikelnr(Artikel)
If zCount > 0 Then
Rx.Offset(zCount - 1, 1).Value = Rx.Offset(zCount - 1, 1).Value + 1
ElseIf Artikel "" Then
Rx.Offset(zCountneu - 1, 1).Value = 1
Rx.Offset(zCountneu - 1, 0).Value = Artikel
End If
Worksheets("E").Range("D2").Value = ""
Worksheets("E").Activate
Worksheets("E").Range("D2").Select
Application.EnableEvents = True
End Sub
Function PruefeArtikelnr(Artikel$)
Dim Rx As Range
For Each Rx In Worksheets("A").Range("A2:A65000")
If Rx.Value "" Then
If CStr(Rx.Value) = Artikel Then
PruefeArtikelnr = Rx.Row
Exit For
End If
Else
Exit For
End If
Next
End Function
Sub Zurueck()
Application.EnableEvents = True
End Sub
Rene
Anzeige