Kontakt- E-Mail- Adresse:klste@hotmail.de

Flexibler Schichtplaner und Dienstplaner in Excel VBA



Dieses Programm ist nicht an einen bestimmten Schichtplan, wie etwa ein 4-Schicht-System oder ein 3-Schicht-System, gebunden, es erstellt Schicht- oder Dienstpläne jeglicher Art, sodass das Programm ein flexibler Planer ist.

 

Die Excel Datei hat 3 Tabellenblätter: „Maske“, „Blatt“ und „Legende“.

 

Das Arbeitsblatt „Blatt“ kann Daten aus 4 Auswertungen enthalten: „Kalender“, „Abteilung_Ausgewählter Mitarbeiter“, „Arbeitsplatz“ und „Ausgewählte Abteilung“.

 

Im Tabellenblatt „Legende“ stehen Bezeichnungen von Tätigkeiten dessen Abkürzungen und Code. Jede Abkürzung/Code kann man beliebig formatieren, die Abkürzung/Code wird nachher nur mit der Formatierung übertragen. In dem Tabellenblatt stehen noch Bezeichnungen von Arbeitsplätzen, Bezeichnungen der Abteilungen und Namen von Mitarbeiter.

 

In diesem Programm wird alles über eine Eingabemaske eingegeben. Die Eingabemaske wird auf dem Arbeitsblatt „Maske“ über die Schaltfläche „Maske“ aktiviert.

 

Eingetragen wird nur, wenn 5 Koordinaten ausgewählt sind; Monat, Datum oder Woche, Abteilung, Mitarbeiter und Arbeitsplatz.

 

Die ausgewählten Konten sieht man im Listenfeld.

Ansichten werden über drei Kontrollkästchen ausgewählt: „Abteilung_Ausgewählter Mitarbeiter“, „Arbeitsplatz“, „Ausgewählte Abteilung“, wobei das Listenfeld für jedes Kontrollkästchen eine andere Farbe hat. 

 

Mit Schaltfläche „Blatt“ wird jedes ausgewähltes Konto im Tabellenblatt gezeigt.

 

Wenn Jahr zu Ende ist, wird Datenbank mit Schaltfläche „Datenbank löschen“ gelöscht. Kennwort zum Löschen ist die Zahl 3.

 

Mit der Schaltfläche „Jahr wechseln“ wird ein Kalender für ein beliebiges Jahr erstellt.






Tabellenblatt „Legende“. Flexibler Schichtplaner und Dienstplaner in Excel VBA


Im Tabellenblatt „Legende“ in Spate „A“ stehen Bezeichnungen von Tätigkeiten und in Spalte „B“ stehen Abkürzungen und Code von den Tätigkeiten. Anzahl der Tätigkeiten ist nicht begrenzt. Jede Abkürzung/Code kann man beliebig formatieren, die Abkürzung/Code wird nachher nur mit der Formatierung übertragen. Die Bezeichnungen von Tätigkeiten mit Abkürzung/Code sollten viele Informationen enthalten, damit man später bei der Auswertung sofort erkennen kann, wo und was der ausgewählte Mitarbeiter getan hat oder tun wird.

 

In Spalte „C“ stehen Bezeichnungen von Arbeitsplätzen. Programm bearbeitet nur die Arbeitsplätze, welche in Bereich C2:C101 stehen. 

 

Im Bereich von D1 bis W1 stehen Bezeichnungen von 20 Abteilungen. Programm bearbeitet nur die 20 Abteilungen.

 

In jeder Abteilung kann bis zu 100 Mitarbeiter sein, die alle im Bereich D2:W101 stehen. Programm bearbeitet Mitarbeiter nur aus dem Bereich.






So wird es in die Datenbank eingetragen. Flexibler Schichtplaner und Dienstplaner in Excel VBA

 

In diesem Programm wird alles über eine Eingabemaske eingegeben. Die Eingabemaske wird auf dem Arbeitsblatt „Maske“ über die Schaltfläche „Maske“ aktiviert.

 

Eingetragen wird nur, wenn 5 Koordinaten ausgewählt sind; Monat, Datum oder Woche, Abteilung, Mitarbeiter und Arbeitsplatz. Wenn das alles ausgewählt ist erscheint blaue Schaltfläche, eingetragen wird für ganze Woche oder nur für ein Tag, ausgewählter Zeitabschnitt steht auf der Schaltfläche. 

 

Erfolgt die Eintragung für die ganze Woche, dann erfolgt die Eintragung von Montag bis Freitag, für Samstag und Sonntag erfolgt die Eintragung nicht wochenweise, für diese Tage sollte jeweils für ein Tag eingetragen werden.

 

Wenn Tätigkeit ausgewählt ist wird Abkürzung/Code von der Tätigkeit eingetragen, wenn Tätigkeit nicht ausgewählt ist, wird eingetragenes gelöscht.

 

Eingetragen wird in drei Konten: „Abteilung_Ausgewählter Mitarbeiter“, „Arbeitsplatz“ und „Ausgewählte Abteilung“.

 

In das Konto „Abteilung_Ausgewählter Mitarbeiter“ wird die Abkürzung/Code für den ausgewählten Tag oder die ausgewählte Woche eingetragen. Wenn für den ausgewählten Zeitraum bereits etwas eingetragen wurde, können Sie dies ändern, indem Sie ein anderes Abkürzung/Code eintragen, oder es löschen, indem Sie eine leere Zeichenfolge im Abkürzung/Code eintragen.

 

In das Konto „Arbeitsplatz“ wird für den ausgewählten Tag oder die ausgewählte Woche zuerst die Mitarbeitername und dann nur für den Mitarbeitername die Abkürzung/Code eingetragen. Für ein „Arbeitsplatz“ in einem Monat kann man nur 20 Mitarbeiter eintragen. Wenn für den ausgewählten Mitarbeiter im ausgewählten Zeitraum bereits etwas eingetragen wurde, können Sie dies ändern, indem Sie ein anderes Abkürzung/Code eintragen, oder es löschen, indem Sie eine leere Zeichenfolge im Abkürzung/Code eintragen. Wenn Abkürzung/Code für ausgewählten Mitarbeiter in ganzem Monat gelöscht wird, wird Mitarbeitername in dem Monat gelöscht.

 

Im Konto „Ausgewählte Abteilung“ stehen alle Mitarbeiternamen, welche im Tabellenblatt „Legende“ für die Abteilung eingetragen sind. Es wird nur für den ausgewählten Mitarbeiter die Abkürzung/Code für den ausgewählten Tag oder die ausgewählte Woche eingetragen. Wenn für den ausgewählten Zeitraum bereits etwas eingetragen wurde, können Sie dies ändern, indem Sie ein anderes Abkürzung/Code eintragen, oder es löschen, indem Sie eine leere Zeichenfolge im Abkürzung/Code eintragen.





Auswertung der eingetragenen Daten. Flexibler Schichtplaner und Dienstplaner in Excel VBA

 

Die ausgewählten Konten sieht man im Listenfeld.

Ansichten werden über drei Kontrollkästchen ausgewählt, wobei das Listenfeld für jedes Kontrollkästchen eine andere Farbe hat. Im Listenfeld wird die Breite der Spalten entsprechend der Länge der eingegebenen Daten angepasst, wenn die Farbe des Listenfelds weiß oder gelb ist.

 

Durch einen Doppelklick mit der linken Maustaste in der Listenbox wird das Datum ausgewählt, welches im Kombinationsfeld „Datum“ eingetragen wird.

 

Die Checkbox „Abteilung_Ausgewählter Mitarbeiter“ zeigt das Konto des Mitarbeiters in der weißen Liste an.

 

Das Kontrollkästchen „Arbeitsplatz“ zeigt das Arbeitsplatzkonto in der gelben Liste an.

 

Das Kontrollkästchen „Ausgewählte Abteilung“ zeigt alle Mitarbeiterkonten der ausgewählten Abteilung in einer grünen Liste an.

 

Die Liste zeigt immer nur Daten für den ausgewählten Monat an.

 

Unten der drei Checkbox ist Schaltfläche „Blatt“. Die hat immer solche Farbe wie ausgewählte Checkbox. Mit der Schaltfläche „Blatt“ wird im Tabellenblatt „Blatt“ Jahresablauf vom ausgewählten Konto erstellt.

 

Im Jahresablauf für „Abteilung_Ausgewählter Mitarbeiter“ sind die Spalten A bis D der Kalender und in Spalte E am Anfang des Monats steht der Name des Mitarbeiters. Unten sind die für dieses Konto eingegebenen Abkürzungen/Codes aufgeführt. In Monaten, in denen nichts eingetragen wurde, gibt es am Monatsanfang keinen Mitarbeiternamen. Die rechte Kopfzeile enthält den Namen des Mitarbeiters und die Seitenanzahl. Abkürzungen/Codes geben an, wo und was der eingetragene Mitarbeiter getan hat oder tun wird.

 

Im Jahresablauf für „Arbeitsplatz“ sind die Spalten A bis D der Kalender und von Spalte E bis Spalte X stehen am Monatsanfang die eingetragenen Mitarbeiter (nicht mehr als 20 pro Monat), da drunter stehen die eingegebenen Abkürzungen/Codes für jedes Mitarbeiter. Die rechte Kopfzeile enthält Bezeichnung des Arbeitsplatzes und die Seitenanzahl. Abkürzungen/Codes geben an, wo und was die eingetragenen Mitarbeitern getan haben oder tun werden.

 

Im Jahresablauf für „Ausgewählte Abteilung“ sind die Spalten A bis D der Kalender und von Spalte E bis Spalte CZ am Anfang jedes Monats stehen zu der Abteilung gehörenden Mitarbeitern, da drunter stehen die eingegebenen Abkürzungen/Codes für jeden Mitarbeiter. Die rechte Kopfzeile enthält Bezeichnung der Abteilung. Abkürzungen/Codes geben an, wo und was die Mitarbeitern getan haben oder tun werden.






Jahr wechseln. Flexibler Schichtplaner und Dienstplaner in Excel VBA

 

Vor dem Jahr wechseln oder nach dem Jahr wechseln sollt man mit Schaltfläche „Datenbank löschen“ alle gesammelte Daten in Datenbank löschen. Kennwort für Löschen ist die Zahl 3.

 

Mit der Schaltfläche „Jahr wechseln“ wird in dem Programm ein Kalender für ausgewähltes

Jahr mit beweglichen und festen Feiertagen erstellen. Anzahl und Namen der festen Feiertage bestimmt der User selber. Höchstens können 15 feste Feiertage vergeben werden. Das Programm hat eine Liste von 10 beweglichen Feiertagen. In der Checkbox von gesetzlichen Feiertagen soll Hacken gesetzt werden. 

Klicken Sie auf die Schaltfläche „Übernehmen“, geben Sie eine vierstellige Jahreszahl in das Eingabefeld ein und klicken Sie auf „OK“. Der Kalender wird erstellt.

 

Die gesetzlichen Feiertage haben im Kalender rote Hintergrundfarbe.






Besonderheit in dem Programm. Flexibler Schichtplaner und Dienstplaner in Excel VBA  


In diesem Programm ist das Tabellenblatt „Legende“ eine Datenbank, Daten in dieser Datenbank werden direkt in diesem Tabellenblatt eingegeben oder geändert.

Die Daten aus diesem Tabellenblatt werden aktiv in der Eingabemaske verwendet.

 

Beim Erstellen eines Jahresablaufs wird die Eingabemaske ausgeblendet und auf dem Tabellenblatt „Blatt“ wird der Jahresablauf des ausgewählten Kontos erstellt.

 

Ändert sich in dieser Zeit etwas im Tabellenblatt „Legende“, wird diese Änderung vom Programm übernommen.

Dieses Programm ist so programmiert, dass diese Änderungen nicht zum Absturz der Excel-Datei führen.






Regionales Format. Flexibler Schichtplaner und Dienstplaner in Excel VBA

 

Wenn das Regionales Format geändert wird, erscheint beim Aktivieren der Eingabemaske eine Meldung: „Die Spracheinstellungen haben sich geändert, die Namen der Monate und Wochentage sind jetzt anders als vermutlich eingetragen. Damit das Programm fehlerfrei funktioniert, muss das Jahr erneut geändert werden“. 

 

Nach dem Jahreswechsel passt sich der Kalender an das Format der Region an und die Meldung erscheint nicht mehr.