Office: (Office 365) Schichtplan erstellen

Hallo Zusammen,

ich bin neu hier und habe schon eine Menge von euch gelesen. Ich hoffe ihr könnt mir in meinem Anliegen helfen.

Ich bin dabei einen Schichtplan zu erstellen, den ich Jahr für Jahr mit ein paar kleinen Anpassungen nutzen kann.
Folgende Fragen hätte ich:

1. Ist es möglich, dass man ein Formular aufrufen kann, in dem ich den gesamten Jahresurlaub eintragen kann und er die Daten in die jeweiligen Monatsreitern überträgt?
2. Besteht die Möglichkeit Feiertage direkt und automatisch einpflegen zu lassen?
3. Kann man die Schichten ggf. auch für das gesamte Jahr im gleichbleibenden Rhythmus für die jeweiligen MA einpflegen?
4. Ein Nice-to-have wäre, wenn ich für jeden Mitarbeiter per Drop-Down eine Jahresübersicht inkl. seiner Urlaubstage ausdrucken kann.

Wichtig: Die MA sind in ihren farblichen Schichten fix und bleiben im Regelfall so zusammen - manuell würde ich die Schichten in den Urlaubsphasen ändern.
Die Namen habe ich aufgrund der Anonymität mit den Buchstaben des Alphabets belegt.

Ich bin wirklich keine Excel-Guru, deswegen wären mir einfache Tipps oder eine direkte Umsetzung in der Datei total lieb.

Ich freue mich auf eure Vorschläge

 

Hallo,

möglich ist das alles. Allerdings würde ich auf die Monatsblätter verzichten und ein Kalendarium für mindestens ein Jahr erstellen. (Es gibt genug Spalten für rund vierzig Jahre!)

Dann gleich noch ein wichtiger Hinweis: du solltest in den Datumzeilen mit richtigen Daten (Plural von Datum) arbeiten, sonst kannst du nichts automatisieren.

 

Ok...wenn ich das für ein gesamtes Jahr erstellen muss, könntest du mir dabei helfen, bzw. mir mal einen Vorschlag schicken?
Könnte man dann trotzdem ggf. einen Monats-Aushang erstellen bzw. anzeigen lassen?

Aus einem anderen Forum habe ich diese Formulare gefunden - sowas könnte ich mir gut vorstellen.

 

Hallo Buzz,

wie schön, das habe ich mal erstellt. In welchem Forum hast du das denn gefunden?

 

Ach wie cool...das kann ich dir gar nicht mehr genau sagen...beschäftige mich schon ein paar Tage mit dem Thema und irgendwo habe ich das gesehen

 

Hallo Buzz,

na egal, hätte mich halt interessiert. Könnte dir da schon was erstellen, würde aber ein paar Tage dauern. Für die UserForms braucht man den Einsatz von Makros, ist das OK?

 

Aus meiner Sicht ist das ok :-) Das ist wirklich sehr nett und ich bin gespannt, was du dir überlegst ;-)

 

Hallo,

mal ein paar Fragen dazu.
Feiertage > für welches Bundesland.

Die Schichten sind Wochenweise früh, spät, nacht, und dann wiederholt sich das?
Es gibt 4 Gruppen a 5 Mitarbeiter und die ersten 4 sind U und K Vertreter?
Was ist V7.
Gibt es Arbeitszeiten von - bis für die Schichten.

Gruß Roger

 

Hallo Roger,

also es handelt sich um das Bundesland NRW. Ja genau, F-S-N und dann geht’s von vorne los. V7 ist eine Schicht, die von dem Rhythmus nicht betroffen ist. Das sind MA, die nur um 7 Anfangen.
Letztendlich sind es 3 Gruppen a 5 MA + 1 Schichtleiter (das sind die ersten 3 - A-C)
Früh 6-14Uhr
Spät 14-22Uhr
Nacht 22-6Uhr

Falls noch Fragen sind, gerne stellen☺️Ich bin für jede Hilfe dankbar

 

Hallo,

Ich habe erst mal nur den Kalender umgebaut. Es dürfte/sollte viel selbsterklärend sein.
Die einzelnen Monatsausgeben sind fix. Da werden alle Ausgaben in den Zellen mit einer Formel gesteuert.

Etwas VBA ist schon vorhanden. Mit dieser Prozedur "UrlaubAufListen" werden die Urlaubstage des Zeitraums aus der formatierten Tabelle (Blatt Mitarbeiter oben links) in die Urlaubstabelle (Blatt Mitarbeiter) zum Mitarbeiter aufgelöst abgebildet.

Bevor ich dir das Userform schnitze wo die Mitarbeiter ihren Urlaub eintragen, überprüfe mal ob du im Blatt "Personal" mit den Voreinstellungen soweit zurechtkommst.

Gruß Uwe

 

Hallo Uwe,

das sieht schon mal sehr gut aus. Trotzdem habe ich aber noch 2 Fragen.
1. Ist es möglich den Schichtplan auch für einen größeren Zeitraum fertig zustellen, inklusive der Schaltjahre? Nicht, dass ich 2028 wieder ohne dastehe?
2. Verstehe ich das richtig, dass du jetzt im Nachgang noch ein Formular wie oben einbaust, in dem ich den Urlaub eintrage und dieser dann in die einzelnen Monate übertragen wird? Ist es dann ggf. auch möglich neben Urlaub zum Beispiel Zeiträume für Krank oder Seminar zu erfassen?

Gruß Simon

 

Hallo Simon,

zu 1. Das kann der Kalender, ohne dass du etwas dazu tun musst. Stelle mal 2024 um. Das ist ein Schaltjahr.
Mit jedem vergangenen Jahr passt sich die das Dropdown Menü an.

2. Das Formular --> ja
Krank und Seminar könnte man noch in die Formel einbauen. Das war aber nicht deine ursprüngliche Frage.

Anbei mit Eingabeformular.
Es gibt ein Blatt "System". In diesen trägst du die Mitarbeiter ein. Diese sind dann in den Monaten und Tabellen vorhanden.

Gruß Uwe

 

Wow...das ist richtig gut :-) so habe ichs mir vorgestellt...Ja zu 2. hast du natürlich recht...das war nicht die ursprüngliche Frage...hat sich jetzt übers Wochenende noch ergeben ;-)
Ich bekomme gerade nur einen Laufzeitfehler - was muss ich machen, damit der behoben wird?

 

und der Urlaub wird nicht in die Hilfstabelle übernommen und somit auch nicht in die Monatsreiter :-(

 

ins Modul der UserForm1:

Code:

Option Explicit
    Private Sperre As Boolean

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 Then
        vorhandeneLaden
    Else
        ListBox1.Clear
    End If
End Sub

Private Sub vorhandeneLaden()
    Dim i&, j&, k&, arr()
    With Tabelle14.ListObjects(1).DataBodyRange
        ReDim arr(1 To .Columns.Count, 1 To .Rows.Count)
        For i = 1 To .Rows.Count
            If .Cells(i, 1) = ComboBox1.List(ComboBox1.ListIndex, 0) Then
                k = k + 1
                arr(1, k) = i
                For j = 2 To UBound(arr)
                    arr(j, k) = .Cells(i, j)
                Next j
            End If
        Next i
    End With
    If k > 0 Then ReDim Preserve arr(1 To UBound(arr), 1 To k)
    With ListBox1
        .ColumnCount = UBound(arr)
        .ColumnWidths = "0;50;50"
        .Column = arr
    End With
End Sub

Private Sub Cmd_Aendern_Click()
    Dim iZeile&
    Sperre = True
    With ListBox1
        iZeile = .List(.ListIndex, 0)
        If .ListIndex = -1 Then Exit Sub
        Tabelle14.ListObjects(1).DataBodyRange.Cells(iZeile, 2) = CDate(TextBox1): .List(.ListIndex, 1) = TextBox1
        Tabelle14.ListObjects(1).DataBodyRange.Cells(iZeile, 3) = CDate(TextBox2): .List(.ListIndex, 2) = TextBox2
    End With
    CntLeeren
    UrlaubAufListen
    Sperre = False
End Sub

Private Sub Cmd_Neu_Click()
    Dim arr()
    If ComboBox1.ListIndex = -1 Then MsgBox "Eintrag nicht möglich. Es wurde kein Mitarbeiter ausgewählt.", vbExclamation, "kein Mitarbeiter ausgewählt": Exit Sub
    If ListBox1.ListIndex > -1 Then MsgBox "Neu eintragen nicht möglich, da ein vorhandener Eintrag ausgewählt wurde", vbInformation, "Problem schreiben eines neuen Eintrags": Exit Sub
    If TextBox1 = "" Or TextBox2 = "" Then MsgBox "Eintrag nicht möglich. Es wurde kein Datum eingetragen.", vbExclamation, "kein Mitarbeiter ausgewählt": Exit Sub
    With Tabelle14.ListObjects(1)
        ReDim arr(1 To 1, 1 To .ListColumns.Count)
        arr(1, 1) = ComboBox1
        arr(1, 2) = CDate(TextBox1)
        arr(1, 3) = CDate(TextBox2)
        .ListRows.Add.Range.Resize(1, UBound(arr, 2)) = arr
    End With
    CntLeeren
    vorhandeneLaden
    UrlaubAufListen
End Sub

Private Sub ListBox1_Click()
    If Sperre = True Then Exit Sub
    With ListBox1
        TextBox1 = .List(.ListIndex, 1)
        TextBox2 = .List(.ListIndex, 2)
    End With
End Sub

Private Sub CntLeeren()
    TextBox1 = ""
    TextBox2 = ""
    ListBox1.ListIndex = -1
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Tabelle15.Range("Tbl_Mitarbeiter[Name, Vorname]").Value
End Sub

Ich habe mal die Fehlerbehandlung vervollständigt und die kleine Prozedur aus Modul1 eingebunden um den Urlaub zu aktualisieren.

Gruß Uwe