Thema Datum  Von Nutzer Rating
Antwort
08.11.2017 13:14:45 Björn
NotSolved
08.11.2017 14:22:39 amicro2000
NotSolved
08.11.2017 14:47:02 Gast14729
NotSolved
Blau Zeit fixieren
 08.11.2017 15:45:26 a
NotSolved
13.11.2017 08:59:38 Gast85205
NotSolved
08.11.2017 17:23:54 Gast7777
NotSolved
08.11.2017 19:07:19 amicro2000
NotSolved

Ansicht des Beitrags:
Von:
a		 Datum:
08.11.2017 15:45:26		 Views:
631		 Rating:
     
Antwort:
  Ja
Thema:
Zeit fixieren

Mach diesen code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lz As Long
    
    If Not Intersect(Target, Range("A2:A" & Rows.Count & "")) Is Nothing Then
        If Selection.Cells.Count > 1 Then Exit Sub
        If Trim(Target) <> "" Then
            ActiveSheet.Unprotect "123456"
            Cells.Locked = False
            Target.Offset(0, 1) = Now
            Lz = Cells(Rows.Count, 1).End(xlUp).Row
            Range(Cells(1, 1), Cells(Lz, 1)).Locked = True
            Range(Cells(1, 2), Cells(Rows.Count, Columns.Count)).Locked = True
            Range(Cells(Lz + 1, 1), Cells(Rows.Count, 1)).Locked = False
            ActiveSheet.Protect "123456", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End If
End Sub

in das Tabellenblatt

und schreib in A1 Barcode und in B1 Zeitstempel rein.

Dann geh auf A2 und mach einfach mit dem Barcodescanner ein paar Strichcodes.

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.11.2017 13:14:45 Björn
NotSolved
08.11.2017 14:22:39 amicro2000
NotSolved
08.11.2017 14:47:02 Gast14729
NotSolved
Blau Zeit fixieren
 08.11.2017 15:45:26 a
NotSolved
13.11.2017 08:59:38 Gast85205
NotSolved
08.11.2017 17:23:54 Gast7777
NotSolved
08.11.2017 19:07:19 amicro2000
NotSolved