AW: BeiM Öffnen der Datei Updaten
25.03.2019 15:13:42
Plüss
Private Sub Worksheet_Change(ByVal Target As Range)
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim ProduktionsStatus, FertigGestelltAm, TageBisLieferung, Liefertermin, _
VerfuegbareBearbeitungsZeit, Heut, WERohmaterial, DLZ, AuftragErfasstAm
ProduktionsStatus = 27
FertigGestelltAm = 28
TageBisLieferung = 10
Liefertermin = 8
VerfuegbareBearbeitungsZeit = 11
Heut = 33
WERohmaterial = 13
DLZ = 29
AuftragErfasstAm = 7
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("A:AH"), Target)
xOffsetColumn = 0
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
'Fertig gestellt am'
If Cells(Target.Row, ProduktionsStatus).Value "Erledigt" Then
Cells(Target.Row, FertigGestelltAm) = ""
Else
Cells(Target.Row, FertigGestelltAm) = Date$
End If
'Tage bis Lieferung'
If Cells(Target.Row, ProduktionsStatus).Value "Erledigt" And Cells(Target.Row, _
Liefertermin).Value "" Then
Cells(Target.Row, TageBisLieferung) = Cells(Target.Row, Liefertermin) - Cells( _
Target.Row, Heut)
Else
Cells(Target.Row, TageBisLieferung).Value = "---"
End If
'Tage bis Lieferung Warnung'
If Cells(Target.Row, ProduktionsStatus).Value "Erledigt" And Cells(Target.Row, _
TageBisLieferung).Value "Erledigt" And Cells(Target.Row, _
TageBisLieferung).Value >= 0 And Cells(Target.Row, TageBisLieferung).Value "Erledigt" And Cells(Target.Row, _
TageBisLieferung).Value >= 3 And Cells(Target.Row, TageBisLieferung).Value "" And Cells(Target.Row, Liefertermin). _
Value "" Then
Cells(Target.Row, VerfuegbareBearbeitungsZeit) = Cells(Target.Row, Liefertermin) - _
Cells(Target.Row, WERohmaterial)
Else
Cells(Target.Row, VerfuegbareBearbeitungsZeit).Value = "Angaben fehlen"
End If
'Durchlaufzeit'
If Cells(Target.Row, ProduktionsStatus).Value = "Erledigt" And Cells(Target.Row, _
AuftragErfasstAm).Value "" And Cells(Target.Row, Liefertermin).Value "" Then
Cells(Target.Row, DLZ) = Cells(Target.Row, FertigGestelltAm) - Cells(Target.Row, _
AuftragErfasstAm)
Else
Cells(Target.Row, DLZ).Value = "---"
End If
Next
Application.EnableEvents = True
End If
End Sub