Aktuelles Datum in Zelle
14.01.2022 18:02:18
Kevin
ich habe für eine Inputliste folgenden Code :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("B5:J15000"), Target) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "test"
If Range("A" & Target.Row).Value = "" Then
Range("A" & Target.Row).Value = Date
Range("A" & Target.Row).NumberFormat = "dd/mm/yy"
End If
ActiveSheet.Protect "test"
End Sub
Bei einem Eintrag im Bereich soll das aktuelle Datum in A eingetragen werden. Nun eine kleines Problem was wir damit haben. 3 Schichten arbeiten mit dieser Liste und so passiert es immer in der Nachtschicht, dass das Datum vom nächsten Tag zu dem Eintrag erscheint ( da ja zu dem Zeitpunkt schon der nächste Tag angebrochen ist). Hat jemand eine Idee wie der Code angepasst werden kann, dass auch alle Einträge der Nachtschicht als Tag 1 weggeschrieben werden ? Wir brauchen zu Auswertungszwecken immer den selben Produktionstag, da alle 3 Schichten zu einem Produktionstag gehören.
Hinweis : Nach allen Einträgen der Nachtschicht lassen wir immer eine Zellenreihe offen.
Liebe Grüße Kevin