Erstellung Urlaubsplan 2017

[steve1da]

Hola,

die Formel kommt in C5 und wird dann nach rechts und nach unten kopiert.

Gruß,
steve1da

[Luffy]

Total doofe Frage aber wie nutze ich sie jetzt am besten in der Praxis ?

Strg+C (kopieren) auf 'Kalender' C5 gehen, Strg+V (einfügen), dann nach rechts und unten ziehen.

[chrisdo44379]

Super vielen lieben Dank für die tolle Hilfe !!! :15:

[chrisdo44379]

Wenn ein Mitarbeiter mehrere Urlaube im Jahr einträgt übernimmt er dies durch die Mitarbeiter Nummer auch automatisch oder ?

[chrisdo44379]

Wenn ein Mitarbeiter mehrere Urlaube im Jahr einträgt übernimmt er dies durch die Mitarbeiter Nummer auch automatisch oder ?

und noch etwas bei jetzt 100 Mitarbeitern wird das komplizierter die ganze Sache oder ? Würde gerne mal einen Testversuch machen

[steve1da]

Hola,

probier es einfach mal aus.

und noch etwas bei jetzt 100 Mitarbeitern wird das komplizierter die ganze Sache oder ?

Nö. Du musst nur die Bereiche in der Formel anpassen.

Gruß,
steve1da

[Luffy]

Hallo,

hab das grad gestest bei mir funktioniert das einwandfrei.

[Gast 123]

Hallo

die Formel Lösung von Steve1da ist richtig gut.  Anbei eine kleine Makro Lösung von mi..

Wem faellt beim vergliechen ein kleiner, aber interessanter Unterschied auf ???

mfg  gast 123
 

Code:

Option Explicit      '12.9.2016   Gast 123   für Clever Forum

Dim MTA As Object, AC As Object
Dim ADatum As Date, EDatum As Date


'markiert rlaubstage im Kalender "x"

Sub Urlaubszeit_eintragen()
Dim a As Integer, e As Integer
Dim m As Integer, f As Integer
Dim j As Integer, lz As Integer
Set MTA = Worksheets("Mitarbeiter")

With Worksheets("Kalender")
  'LastZell Mitarbeiter ermitteln
  lz = .Range("A300").End(xlUp).Row
 
  'Schleife zum einfügen in Kalender
  For Each AC In MTA.Range("A2:A" & lz)
    ADatum = AC.Cells(1, 2)  'Anf/End Datum
    EDatum = AC.Cells(1, 3):  f = 0
   
   'Anf + End Datum im Kalender suchen
    For j = 3 To 370
      If Cells(4, j) = ADatum Then a = Cells(4, j).Column
      If Cells(4, j) = EDatum Then e = Cells(4, j).Column: Exit For
    Next j
   
   'Mitarbeiter Nr. im Kalender suchen
    For m = 5 To lz + 5
      If Cells(m, 2) = AC.Value Then Exit For
    Next m
 
   'Mitarbeiter im Kalender markieren
    For j = a To e
      If Cells(3, j) = "Samstag" Or _
         Cells(3, j) = "Sonntag" Then
         If j = a Then f = f + 1
         If j = e Then f = f + 1
       ElseIf Cells(m, j).Value = "" Then
         Cells(m, j).Value = "x"
       End If
    Next j
    If f > 0 Then MsgBox AC.Value & ". Mitarbeiter:  Sonntag am Anfang oder Ende im Datum !!"
  Next AC
End With
End Sub


'***  verworfen, prüft keine Sonntage
'     'Tage durch "x" im Kalender markieren
'     Cells(m, a).Resize(1, e - a + 1) = "x"
 

[Rabe]

Hi,

Wenn ein Mitarbeiter mehrere Urlaube im Jahr einträgt übernimmt er dies durch die Mitarbeiter Nummer auch automatisch oder ?

ich habe die Tabelle noch etwas erweitert für den Rest des Jahres und die Daten im Mitarbeiter-Blatt in eine intelligente Tabelle umgewandelt.

• Durch die von mir angepassten Formeln müssen diese im Kalender nicht mehr geändert werden für weitere Termine und auch das Einfügen weiterer Mitarbeiter ist kein Problem mehr.
  
• Die bedingten Formatierungen habe ich um die Markierung von Sa und So erweitert.
  
• Die Darstellung des Wochentages und der Kalenderwoche wurde per Formel gelöst, dann kann der Plan auch für die Folgejahre verwendet werden (einfach im Kalender in A1-B2 die Jahreszahl eintragen).
  

  Beispiel neue Urlaubsplanung - Rabe.xlsx (Größe: 1,47 MB / Downloads: 30)

[Greener]

Hallo,

bin neu hier und würde ganz gerne Eure professionelle Hilfe in Anspruch nehmen.



Habe das Thema nochmal nach vorne gebracht, da ich einfach die Formel für den Übertrag der Urlaubsdaten aus dem Tabellenblatt Erfassung in das Tabellenblatt Darstellung nicht bestimmen kann.
Die von mir verwandte Formel trägt nur den ersten Termin ein, alle weiteren werden nicht berücksichtigt.

Schön wäre es auch, wenn die Urlaubsart/Abwesenheitsart (z.B.: Urlaub, Sonderurlaub, Kur usw.) im Kalender mit berücksichtigt werden könnte

Wäre Euch dankbar, wenn Ihr mir helfen könntet.

Würde Formel vor VBA vorziehen.

Anbei zur Verdeutlichung die Datei