Schichtfolge in einer Textbox anzeigen
21.12.2015 19:28:05
Benedikt
ich bin normalerweise jemand, der sich jegliche Codes im Internet zusammensucht, und sich auf seine Bedürfnisse zuschneidet und ändert. Das klappte bislang immer. Nun sehe ich vermutlich vor lauter Bäumen den Wald nicht mehr.
Schreibe gerade an einem Dienstplan. Auf Sheet(1) wird in einer Textbox beim Öffnen der Datei das aktuelle Datum angezeigt. Per Drehfeld kann man das Datum tagesaktuell bis zu drei Monate zurück und ein Jahr im Voraus blättern.
Nun zum Problem. Anhand VBA soll nun ebenfalls je nach geklicktem (angezeigtem) Datum in der Textbox die Schichten A-E in einer anderen Textbox angezeigt werden.
Beispiel: Textbox1: 24.12.2015 Textbox2: A
Textbox1: 25.12.2015 Textbox2: B und so weiter.
ab dem 29.12.2015 wiederholt sich das Ganze wieder von A-E. Auch über das neue Jahr hinweg. Im Hinblick auf das Schaltjahr gibt es 2016 nichts zu beachten. Im Jahr 2017 jedoch hat beispielsweise Schicht A am 28.02. Dienst. Am 01.03. dann jedoch nicht C, sondern D, als ob der 29.02. vorhanden wäre.
Vermutlich ganz einfach, aber trotz meiner Suche, komme ich nicht drauf. Insbesondere werden gerne Schichtkalender benutzt, die das ganze Jahr anzeigen. Da könnte ich es einfach so eintragen. Ich hoffe, ich konnte das Problem einigermaßen verständlich schildern, sonst bessere ich gerne nach. Kann mir jemand einen Tipp geben, mit welcher Beispieldatei ich weiterkomme?
Für eure Bemühungen danke ich schon im Voraus.
Grüße Benedikt