Clever-Excel-Forum

Seiten: 1 2

Hallo,

für interessierte: Der Quelltext mit Kommentaren:

Code:
Option Explicit                                                                                                 ' Variablendeklaration erzwingen (erforderlich)

Private Sub Worksheet_Activate()

' Variablen deklarieren

    Dim lngZeile As Long                                                                                        ' Schleifenzähler für Datenherkunft

    Dim lngStDat As Long                                                                                        ' Startdatum vom Abwesenheitszeitraum

    Dim lngZiDat As Long                                                                                        ' Enddatum vom Abwesenheitszreitraum

    Dim lngFarb As Long                                                                                         ' Farbe für Abwesenheitsschlüssel

    Dim strMitarb As String                                                                                     ' Name des Mitarbeiters

    Dim lngZiZei As Long                                                                                        ' Zeile in der markiert wird

    Tabelle2.Range("B3:XFD" & Range("A1").End(xlDown).Row).Interior.Color = xlNone                              ' alte Markierungen löschen

    For lngZeile = 5 To Tabelle1.Range("A1").End(xlDown).Row                                                    ' laufe von Zeile 5 nach Ende der Liste in der Herkunftstabelle

        lngZiZei = Application.Match(CStr(Tabelle1.Cells(lngZeile, 2)), Tabelle2.Columns(1), 0)                 ' Zeile für Markierunge ermitteln

        lngStDat = Application.Match(CLng(Tabelle1.Cells(lngZeile, 3)), Tabelle2.Rows(1), 0)                    ' Startdatum vom Abwesenheitszeitraum

        lngZiDat = Application.Match(CLng(Tabelle1.Cells(lngZeile, 4)), Tabelle2.Rows(1), 1)                    ' Enddatum vom Abwesenheitszeitraum

        lngFarb = Tabelle1.Cells(lngZeile, 7).DisplayFormat.Interior.Color                                      ' Farbe vom Abwesenheitsgrund auslesen

        Range(Tabelle2.Cells(lngZiZei, lngStDat), Tabelle2.Cells(lngZiZei, lngZiDat)).Interior.Color = lngFarb  ' Abwesenheitszeitraum mit ermittelter Farbe füllen

    Next lngZeile                                                                                               ' nächste Zeile

End Sub

Danke Klaus Dieter Heart

Ja so in etwa sollte es sein. Allerdings kann ich in deiner Datei keine Formel sehen?

Ich habe das Layout des Kalenders nochmal auf vertikal geändert, um das Hinzufügen neuer Spalten für neue Mitarbeiter etwas zu erleichtern
Der Kalender ist jetzt auch dynamisch heißt die Daten und Wochentage ändern sich automatisch bei Änderung der Jahrezahl in Zelle F2

Nun stehe ich weiterhin vor der Frage für eine gute Formel, damit sich der Kalender automatisch ausfüllt. Ich denke es reicht, wenn sich einfach
die Farben entsprechend ändern, also:

Wochenende/Feiertage = Grau
Urlaub = Gelb
Überstunden = Lila
Dienstreise = Blau
Arzttermin = Orange
Krank = Rot

Punkte 2-6 hängen natürlich von drei Faktoren ab:

Befindet sich das Datum in einem der Zeiträume in Spalten C und D?
Wenn ja, für welchen Mitarbeiter gilt das in Spalte B?
Wenn ja welcher Urlaubstyp ist in Spalte G eingetragen?

Ein Sonderfall ist Punkt 1 (Wochenende / Feiertage). Hier würde es sich die Informationen aus dem Tab "Urlaub Data" holen.
Dort sind die Mitarbeiter aufgeführt in Spalte D aufegführt und die das Bundesland in Spalte E zugeordnet. In Spalten J bis Y
dann die jewieligen Feiertage pro Bundesland.

Wäre das möglich alles möglich? Oder denke ich da viel zu komplizert und es gäbe da eine viel einfachere Methode?

Danke
Ben

Hallo Ben,

mein Vorschlag ging dahin, auf den mittleren Teil (Spalten I bis AM) zu verzichten. Die horizontale Ausrichtung des Kalendariums hat den Vorteil, dass es keine Probleme gibt, wenn Abwesenheitszeiträume über den Monats- bzw. Jahreswechsel gehen. Der Kalender kann nahezu endlos verlängert werden. Die Spalten reichen für rund vierzig Jahre. Neue Mitarbeiter können unten an der Liste angefügt werden. Die Farben der Abwesenheiten werden auf dem Blatt "Urlaub" ausgelesen und Verwendet, das funktioniert auch bei Farben, die per bedingter Formatierung ausgewählt werden. Also alles Zukunftssicher.

Zitat: Allerdings kann ich in deiner Datei keine Formel sehen?

Eine Formel gibt es da nicht, es arbeitet im Hintergrund eine Ereignisprozedur, die jedes Mal startet, wenn das Tabellenblatt geöffnet wird. Den Quelltext kannst du sehen, wenn du mit der rechten Maustaste auf den Reiter von "Tabelle1" klickst und im Kontextmenü den Punkt Code anzeigen auswählst.

....
https://www.ms-office-forum.net/forum/sh...p?t=381757

Hallo,

anbei mal ein Urlaubskalender, bei dem der Fragesteller noch mehr Ausnahmen haben wollte...

Die Formeln sind nur bis Februar ausgefüllt... und auch nur eine Auswahl für die bedingte Formatierung...

Vielleicht hilft das ja schon weiter?

Seiten: 1 2

Klaus-Dieter

Benstar79

Klaus-Dieter

steve1da

rate mit