| klste@hotmail.de |
Schichtplaner 4 Schicht System mit Bilder in Excel VBA
Dieses Programm ist eine in Excel VBA programmierte Excel Datei. Es erstellt 4 Schicht System Schichtpläne für alle 4 Schichten für ganzes Jahr. In dem Programm alle eingetragen Abläufe der Schichttagen werden gespeichert und die gespeicherte Daten kann das Programm vielseitig auswerten.
Die Excel Datei hat 6 Tabellenblätter: „Maske“, „Blatt“, „Schicht1“, „Schicht2“, „Schicht3“, „Schicht4“.
In dem Programm alles wird aus einer Eingabemaske erledigt. Die Eingabemaske wird im Tabellenblatt „Maske“ mit Schaltfläche „Maske“ aktiviert.
Im Tabellenblatt „Blatt“ stehen die Auswertungen.
In Tabellenblätter „Schicht1“, „Schicht2“, „Schicht3“, „Schicht4“ stehen vom Programm erstelle Sichtpläne für die 4 Schichten.
Im jeden Schichtplan sind 12 Monaten, 6 in oberer Hälfte und 6 in unterer Hälfte, in der Mitte in Zeile 33 steht Schichtbezeichnung und die Zahl des Jahres.
Beim Ausdrucken braucht der Plan nur ein ganzes Blatt Din A4 im Hochformat.
In den Schichtplänen jeder Monat besteht aus 4 Spalten. In erster Spalte steht das Datum, in zweiter Spalte stehen die Wochentagen, in dritter Spalte stehen die Feiertage und Wochennummern, in der vierte Spalte stehen die Schichten, „F“-Frühschicht, „S“-Spätschicht, „N“-Nachtschicht.
Kalender für beliebiges Jahr wird in Eingabemaske mit Schaltfläche „Jahr wechseln“ erstellt.
In der Liste von 10 beweglichen Feiertagen wird nur mit Setzen des Hacken in der Checkbox entschieden ob der Feiertag gesetzlich ist.
In der Liste von 15 festen Feiertagen User selber entscheidet was für Bezeichnung und welches Datum der Feiertag hat und mit Hacken in die Checkboxen markiert man die gesetzlichen Feiertage. Die Schaltfläche „Übernehmen“ drücken, in Eingabebox 4 stellige Jahreszahl eingeben und „OK“ drücken. Kalender ist erstellt.
Schichtpläne für alle 4 Schichten werden in Eingabemaske mit Schaltfläche „Schichtplan erstellen“ erstellt.
Zuerst erscheint Maske, in welcher in Combobox rechts oben für Schicht1 die passende Schichtreihe ausgewählt werden soll. Bezugstag für die Auswahl ist immer 1 Januar und Schicht 1.
Es gibt 4 Reihen zum Auswahl.
Schichtreihe1: Mo-Frühschicht, Di-Frühschicht, Mi-Spätschicht, Do-Spätschicht, Fr-Nachtschicht, Sa-Nachtschicht, So-Nachtschicht.
Schichtreihe2: Mo-Keine, Di-Keine, Mi-Frühschicht, Do-Frühschicht, Fr-Spätschicht, Sa-Spätschicht, So-Keine.
Schichtreihe3: Mo-Nachtschicht, Di-Nachtschicht, Mi-Keine, Do-Keine, Fr-Frühschicht, Sa-Frühschicht, So-Frühschicht.
Schichtreihe4: Mo-Spätschicht, Di-Spätschicht, Mi-Nachtschicht, Do-Nachtschicht, Fr-Keine, Sa-Keine, So-Keine.
Wenn ausgewählte Reihe gelbe Hintergrundfarbe bekommen hat, Schaltfläche „Schichtplan erstellen“ drücken. Die Schichtpläne für alle 4 Schichten werden erstellt.
Wenn Schichtpläne für folgenden Jahr erstellt werden, im Tabellenblatt „Schicht1“ im Bereich U66-X68 eintragen: Datum, Wochentage und folgende Schichttage für Januar des folgendes Jahres. Nachher nach dem entstandenem Muster in Maske richtige Schichtreihe auswählen.
Wenn Schichtplan erstellt ist, die Schaltfläche „Schichtplan erstellen“ einmal drucken in Maske für den Jahr verwendete Schichtreihe wird gelb sein.
Schaltfläche „Legende“ aktiviert Rahmen. In dem Rahmen 100 Bezeichnungen für Tätigkeitsverläufen, 100 Bezeichnungen für Arten der Arbeit, 100 Bezeichnungen für Einsatzorten kann man neu eintragen, ändern oder löschen, Kennwort für löschen ist die Zahl 3.
Die Bezeichnungen für Schicht 1 bis Schicht 4 kann man jederzeit ändern.
In Eingabemaske sind 4 gelbe Schaltflächen, jede für eine Schicht. Mit jeder gelber Schaltfläche wird Rahmen aktiviert, in dem die ausgewählte Schicht bearbeitet wird.
In dem geöffnetem Rahmen links oben steht Name von dem Schicht, da drunter ist Schaltfläche „X“ mit der wird der Rahmen geschlossen.
Der Rahmen besteht aus 8 Bereichen: Kalender, Rahmen „Schichtbesetzung“, Rahmen „Mitarbeiterdatenbank“, Rahmen „Mitarbeiter Aktivitäten“, Auswertungsbereich, Bildbearbeitungsbereich, Löschbereich und Listenbox Bereich.
Kalender besteht aus Comboboxen „Monat“ und „Datum“ und aus 7 Reihen jede mit 15 Zellen.
In den Zellen in erster Zeile stehen: „KW“-Kalenderwoche, Bezeichnungen von Wochentagen und „S“-Schicht. In erster Spalte stehen die Zahlen von Kalenderwochen. Die Zellen der Schichtbezeichnungen haben hellorange Hintergrundfarbe. Die Zellen der Samstagstage haben grüne Hintergrundfarbe. Die Zellen der Sonntage haben blaue Hintergrundfarbe. Die Zellen des ausgewählten Tags haben gelbe Hintergrundfarbe. Die gesetzlichen Feiertage haben roten Hintergrund und die nichtgesetzlichen Feiertage haben grauen Hintergrund. Wenn ausgewählter Tag ein Feiertag ist, unten in langgezogener Zelle steht Bezeichnung für den Feiertag und diese Zelle bei gesetzlichen Feiertagen rot ist und bei nichtgesetzlichen Feiertagen grau ist. Wenn Eingabemaske aktiviert ist, zeigt Kalender immer aktuelles Datum. Auch mit Schaltfläche „Aktuelles Datum“ wird im Kalender aktuelles Datum angezeigt.
Im Rahmen „Schichtbesetzung“ Felder „Mitarbeiter Nr.“ und „Verlauf“ sind Pflichtfelder, andere 6 Felder werden nur beim Bedarf ausgefüllt. Eingetragen wird mit Schaltfläche „Eintragen“. Eintrag wird gespeichert unter eigenem Besetzung Nr. in Schichtbesetzung im ausgewählten Tag und bei ausgewähltem Mitarbeiter im Mitarbeiter Aktivitäten als Aktivität im ausgewählten Tag. Schichtbesetzung für ein Tag kann höchstens 100 Einträge haben. Erstellter Eintrag kann nicht geändert werden, der kann nur mit Schaltfläche „Besetzung Nr. löschen“ gelöscht werden. Kennwort für löschen ist die Zahl 3.
Im Rahmen „Mitarbeiterdatenbank“ Felder „Vorname.“ und „Name“ sind Pflichtfelder, andere 6 Felder werden nur beim Bedarf ausgefüllt. Eingetragen wird mit Schaltfläche „Eintragen“. Eintrag wird gespeichert unter eigenem Mitarbeiter Nr. im Mitarbeiterdatenbank. Für eine Schicht kann Programm nur 100 Mitarbeiter Nr. erstellen. Die Daten vom jeden Mitarbeiter kann man jederzeit ändern. Mit Schaltfläche „Mitarbeiter Nr. löschen“ wird Eintrag im Mitarbeiterdatenbank und alle Aktivitäten des Mitarbeiters gelöscht. Kennwort für löschen ist die Zahl 3.
Im Rahmen „Mitarbeiter Aktivitäten“ wird nicht eingetragen. In dem Rahmen, wenn Monat und Mitarbeiter Nr. ausgewählt sind, kann man Aktivitäten von ausgewähltem Mitarbeiter Nr. ansehen.
Wenn in der Combobox „Auswertung“ was ausgewählt ist, wird Schaltfläche „Auswertung erstellen“ sichtbar. Nach Betätigung der Schaltfläche, im Tabellenblatt „Blatt“ ausgewählte Auswertung erstellt wird, Beschriftung der Schaltfläche ändert sich auf „Tabellenansicht“, ListBox ist grün und zeigt Auswertung aus dem Tabellenblatt „Blatt“.
Auswertung "Aktivitäten vom ausgewählten Mitarbeiter" zeigt Kalender für ganzes Jahr mit Aktivitäten Mitarbeiters. Wenn dem Mitarbeiter ein Bild zugefügt ist, steht das Bild in Auswertung. ListBox hat 11 Spalten. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Mitarbeiter Nr. und Anzahl der Seiten.
Auswertung " Woche/Verlauf" zeigt Verlauf aller Mitarbeiter in ausgewählter Woche. ListBox hat 10 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Nummer der Kalenderwoche und Anzahl der Seiten.
Auswertung "Woche/Art der Arbeit" zeigt Art der Arbeit aller Mitarbeiter in ausgewählter Woche. ListBox hat 10 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Nummer der Kalenderwoche und Anzahl der Seiten.
Auswertung "Woche/Einsatzort" zeigt Einsatzort aller Mitarbeiter in ausgewählter Woche. ListBox hat 10 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Nummer der Kalenderwoche und Anzahl der Seiten.
Auswertung "Woche/Stunden" zeigt wieviel Stunden jeder Mitarbeiter in ausgewählter Woche gearbeitet hat. ListBox hat 11 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Nummer der Kalenderwoche und Anzahl der Seiten.
Auswertung "Ausgewählter Tag" zeigt Sichtbesetzung in ausgewähltem Tag. ListBox hat 9 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Besetzung Nr. im Combobox „Besetzung Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Datum und Anzahl der Seiten.
Auswertung "Jahr/Ausgewählter Verlauf" zeigt Anzahl den Tagen des ausgewählten Verlaufs aller Mitarbeiter in jedem Monat. ListBox hat 16 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Verlauf und Anzahl der Seiten.
Auswertung "Jahr/Ausgewählte Art der Arbeit" zeigt Anzahl den Tagen der ausgewählten Art der Arbeit aller Mitarbeiter in jedem Monat. ListBox hat 16 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Art der Arbeit und Anzahl der Seiten.
Auswertung "Jahr /Ausgewählter Einsatzort" zeigt Anzahl den Tagen des ausgewählten Einsatzorts aller Mitarbeiter in jedem Monat. ListBox hat 16 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart, Einsatzort und Anzahl der Seiten.
Auswertung "Jahr/Stunden" zeigt wieviel Stunden jeder Mitarbeiter in jedem Monat gearbeitet hat. ListBox hat 16 Spalten. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart und Anzahl der Seiten.
Auswertung "Ausgewählten Mitarbeiter/Jahr/Verlauf" zeigt detaillierter Verlauf von ausgewähltem Mitarbeiter in jedem Monat des Jahres. ListBox hat 14 Spalten. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart und Anzahl der Seiten.
Auswertung "Ausgewählten Mitarbeiter/Jahr/Art der Arbeit" zeigt detailliert, welche Arbeit der ausgewählte Mitarbeiter in jedem Monat des Jahres gehabt hat. ListBox hat 14 Spalten. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart und Anzahl der Seiten.
Auswertung "Ausgewählten Mitarbeiter/Jahr/Einsatzort" zeigt detailliert, an welchem Einsatzort war der ausgewählte Mitarbeiter in jedem Monat des. ListBox hat 14 Spalten. Nach Betätigung Schaltfläche „Tabellenansicht“ im Tabellenblatt „Blatt“ in rechter Kopfzeile steht Schichtbezeichnung, Auswertungsart und Anzahl der Seiten.
Mit Schaltfläche „Bild einfügen“ wird ausgewählter Mitarbeiter Nr. ein Bild zugefügt.
Mit Schaltfläche „Bild entfernen“ wird ausgewählter Mitarbeiter Nr. zugefügtes Bild gelöscht. Kennwort für löschen ist die Zahl 3.
Im Löschbereich sind 2 Schaltflächen: „Besetzung löschen“ und „Datenbank löschen“.
Schaltfläche „Besetzung löschen“ ist sichtbar wenn Rahmen „Schichtbesetzung“ angeklickt ist und löscht in allen Schichten Schichtbesetzung und Mitarbeiteraktivitäten im ganzen Jahr. Kennwort für löschen ist die Zahl 3.
Schaltfläche „Datenbank löschen“ ist sichtbar wenn Rahmen „Mitarbeiterdatenbank“ angeklickt ist und löscht in ausgewählter Schicht Mitarbeiterdatenbank und Mitarbeiteraktivitäten im ganzen Jahr. Kennwort für löschen ist die Zahl 3.
Im Listenbox Bereich sind 3 Checkbox und Listenfeld.
Wenn Checkbox „Schichtbesetzung“ aktiv ist und Monat und Datum ausgewählt sind, ListBox hat 9 Spalten ist weiß und zeigt Schichtbesetzung im ausgewählten Tag. Mit einem Doppelklick in ListBox wird ausgewählte Besetzung Nr. im Combobox „Besetzung Nr.“ angezeigt.
Wenn Checkbox „Mitarbeiterdatenbank“ aktiv ist, ListBox hat 8 Spalten ist orange und zeigt Mitarbeiterdatenbank von ausgewählter Schicht. Mit einem Doppelklick in ListBox wird ausgewählte Mitarbeiter Nr. im Comboboxen „Mitarbeiter Nr.“ angezeigt.
Wenn Checkbox „Mitarbeiter Aktivitäten“ aktiv ist und Monat und Mitarbeiter Nr. ausgewählt sind, ListBox hat 9 Spalten ist gelb und zeigt Aktivitäten des ausgewählten Mitarbeiter im ausgewählten Monat. Mit einem Doppelklick in ListBox wird ausgewählte Datum in dem Kalender angezeigt.
In der Listenbox die Spaltenbreiten passen sich automatisch an die Breite der gezeigten Werte an.