Dienstplan automatische Aktualisierung

16.01.2025 12:57:01

Carry

Hallo zusammen,

Ich brauch wieder mal euer Fachwissen.
Ich habe für unsere Mitarbeiter einen wöchentlichen Dienstplan in Form einer excel Datei.
In der Spalte A stehen die Namen und in der Spalte B die Telefonnummer zum Mitarbeiter.
Dann folgt das Datum der jeweiligen Woche in den folgenden Spalten.

Nun meine Frage:
Ich habe eine Datei mit 52 einzelnen Tabellen (für jede Kalenderwoche eine Tabelle) gibt es eine Möglichkeit, dass ich auf einer Übersichtsseite die Mitarbeiter einmal mit Telefonnummer aufliste wie ich sie gerne in den Dienstplan hätte und sich automatisch alle 52 Tabellenblätter anpassen?
Doch ich bräuchte noch zwei weitere Punkte die erfüllt werden sollten:
1. wenn ein Mitarbeiter hinzu kommt, soll dieser nur in den diensplänen auftauchen, ab dem Zeitpunkt der Eintragung in die Übersicht (also Mitarbeiter kommt am 12.3. dann erst ab KW des 12.3. mitaufnehmen)
2. wir planen 14 Tage im Voraus, gibt es eine Möglichkeit, wenn die Tabelle mit Blattschutz belegt ist, dass da hier keine Änderung erfolgt, also falls ein Mitarbeiter hinzukommt, dass er in den bereits fertigen bzw. vergangen Dienstplänen nicht auftaucht?

Vielen Dank schon mal im Voraus!

AW: Dienstplan automatische Aktualisierung

16.01.2025 14:05:23

Eifeljoi 5

Hallo

Sorry im voraus.
Wenn ich lese 50 Tabellenblätter bekomme ich graue Haare, dies ist ein falsches Denken bzw. Vorgehen.
Ein einziges Tabellenblatt reicht, denn dies Tabellenblatt reicht über die Nächsten 50 Jahre und mehr, da ich selbst vor kurzem einen Dienstplan für eine Firma erstellt habe weiß ich wo von ich spreche.

AW: Dienstplan automatische Aktualisierung

16.01.2025 16:39:46

UweD

Hallo

Ich bin von folgendem Aussehen ausgegangen.

Arbeitsblatt mit dem Namen 'Übersicht'
	A	B	C	D
1	Telefonnummer	Ma	Eintritt	KW
2	0151 123 456	Donald	01.01.2024	202401
3	0170 999 888	Elon	01.03.2025	202509
4	0800 100	Olaf	01.01.2025	202501

Zelle	Formel
D2	=JAHR(C2) & TEXT(KALENDERWOCHE(C2;11);"00")

Die Wochenblätter sind wie in Spalte D dargestellt benannt (also Jahr 4 stellig & Woche 2 stellig) und sehen so aus

Arbeitsblatt mit dem Namen '202501'
	A	B	C	D
1	Tel	Name	Text 1	Text 2
2	0151 123 456	Donald	Hier stehen deine Eingaben	ddds
3	0800 100	Olaf	sghg	fff

Die erste Telefonnummer wird in allen Blättern gesucht, ist sie nicht da, wird geprüft, ob das Eintrittsdatum bereits erreicht ist..
wenn ja, wird der Eintrag unten ergänzt. Die zugefügten Zellen werden rot markiert.
Dann die nächste Telefonnummer..

Sub CheckNeu()

    Dim TB1 As Worksheet, TBx As Worksheet, JaNein As Variant

    Dim Z1 As Integer, LR1 As Integer, LRx As Integer, i As Integer, Sp As Integer

    

    Z1 = 2 'erste Zeile

    Set TB1 = Sheets("Übersicht")

    Sp = 2 'die ersten 2 Spalten sollen copiert werden

    

    LR1 = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte

    

    'Reset

    JaNein = MsgBox("Farbe auf allen Blättern zurücksetzen", vbYesNo + vbQuestion)

    If JaNein = vbYes Then

        For i = 2 To Sheets.Count

            Sheets(i).Cells.Font.ColorIndex = xlAutomatic

        Next

    End If

    For i = Z1 To LR1

        For Each TBx In ThisWorkbook.Sheets

            If TBx.Name > TB1.Name Then

                If WorksheetFunction.CountIf(TBx.Columns(1), TB1.Cells(i, 1)) = 0 Then

                    If CDbl(TB1.Cells(i, 4)) = CDbl(TBx.Name) Then 'neu

                        LRx = TBx.Cells(TBx.Rows.Count, 1).End(xlUp).Row + 1

                        TB1.Cells(i, 1).Resize(1, Sp).Copy TBx.Cells(LRx, 1).Resize(1, Sp)

                        TBx.Cells(LRx, 1).Resize(1, Sp).Font.Color = vbRed

                        

                    End If

                End If

            

            End If

        Next

    Next

    MsgBox "Fertig"

End Sub

LG UweD

AW: Dienstplan automatische Aktualisierung

22.01.2025 13:06:18

Carry

Hallo Uwe.

Dein Code funktioniert prinzipiell super.
Gibt es eine Möglichkeit ihn so abzuändern, dass die Mitarbeiter so in der Reihe komme wie auf der Übersichtsseite? Also wenn ich zwischendrin einen einfüge, das er in den anderen Tabellenblättern nicht ganz unten erscheint sondern da wo er in der Übersicht steht?
Und gibt es eine Möglichkeit das excel den Abgleich automatisch durchführt ohne, dass ich es manuell anstoßen muss?

Vielen Dank schon mal!!!

AW: Dienstplan automatische Aktualisierung

16.01.2025 14:56:41

Carry

Jetzt bin ich neugierig geworden.
Das musst du mir mal genauer erklären mit deinem Dienstplan für die nächste 50 Jahre

AW: Dienstplan automatische Aktualisierung

17.01.2025 11:23:18

Eifeljoi 5

Hallo

Um es ganz grob zu sagen:
Spalte A das Jahr
Spalte B den Monat
Spalte C das Datum für die kompletten Jahre
Ab Spalte D die Mitarbeiter.
Und das Ganze als formatierte (Intelligente) Tabelle angelegt, jetzt kannst du schön mit Datenschnitt filtern.
Falls du es nicht hinbekommst dann bitte Beispieldatei wie es gerade ist und einem zusätzlichem Tabellenblatt das Wunschergebnis.

Dienstplan automatische Aktualisierung

Forumthread: Dienstplan automatische Aktualisierung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Dienstplan automatische Aktualisierung

Forumthread: Dienstplan automatische Aktualisierung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread