AW: Wochenenddaten auf bestimmter Maschine ausblenden
18.01.2010 18:21:21
fcs
Hallo Anne,
in der Function Wochenende kannst du Wochendpläne für weitere Maschinen definieren.
Wenn die Maschine am Wochende das gleich Nicht-Produktionsschema hat wie Ma1 dann z.B.:
Case "Ma1", "Ma2" 'Maschine(n) ohne Wochenendproduktion
Hat die Maschine ein anderes Schema, dann muss du einen kompletten zusätzlichen Case Block erstellen. z.B.
Case "MaX" 'Maschine(n) ohne Wochenendproduktion
'Wochentag des Tags in Spalte 1 prüfen
Select Case Weekday(.Cells(Zeile, 1).Value, vbSunday)
Case vbFriday 'Nach Frühschicht ist Schluß
Select Case Schicht
Case "Spät", "Nacht": Wochenende = True
End Select
Case vbSaturday
'Keine Produktion für alle 3 Schichten
Wochenende = True
Case vbSunday 'No work on Sundays
Select Case Schicht
Case "Früh", "Spät", "Nacht": Wochenende = True
End Select
Case Else
End Select
Gruß
Franz