Urlaubsplan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Urlaubsplan

26.04.2017 14:26:58

yummi

AW: Urlaubsplan

27.04.2017 09:42:05

Jürgen

AW: Urlaubsplan

27.04.2017 12:04:20

yummi

AW: Urlaubsplan

28.04.2017 10:05:57

Jürgen

AW: Urlaubsplan

01.05.2017 09:32:24

Rainer

AW: Urlaubsplan

01.05.2017 12:49:20

Matthias

Sollte zu Jürgen ... owT

01.05.2017 13:35:20

Matthias

AW: Sollte zu Jürgen ... owT

02.05.2017 22:04:36

Jürgen

Hallo Jürgen,
Wenn Du auf deinem Arbeitsblatt bist und mit Rechtsklick auf den Reiter (unten) klickst im Kontextmenu auf Code anzeigen. Das was Du dann siehst, ist wenn es mit der Datei übereinstimmt, die Du gepostet hast, ein "weißes Blatt". Dort kopiertst Du den Code hin, den ich gepostet habe. Falls es schon so eine Funktion Worksheet_Change gibt, dann musst Du nur die Zeilen von if bis end if dort hinein kopieren (vor End Sub)
So jetzt zur Erklärung:
Diese Funktion wird immer automatisch aufgerufen, wenn eine Zelle auf dem Blatt ihren Wert ändert. Deine Berechnung der Resturlaubstage steht in Spalte 265 (kannst Du sehen, wenn du unter Datei - Optionen - Formeln umstellst auf S1Z1 Bezug, sonst selber zählen).
Target ist die zelle, die das Ereignis ausgelöst hat, also wo sich ein Wert geändert hat.
Target.Row gibt mir die Reihe an, in der die Zelle liegt. Es interssiert mich aber nur, ob sich der Wert des Resturlaubs geändert hat und deshalb die if Abfrage.
Du willst also nur wissen ob sich der Wert in Spalte 265 ändert.
if Cells(reihe, spalte).angezeigter Wert kleiner 0 dann mach
Erzeuge Nachrichtenbox mit Text der zwischen "" steht.
Ich frage also ab, ob in der dazugehörigen Reihe in Spalte 265 (Resturlaub) der Wert kleiner 0 ist und wenn ja dann gebe ich die Nachrichtenbox (MsgBox) aus, sonst mache ich nichts.
Also der Code muss zusätzlich rein, sonst verlierst Du ja alle deine bisherige Funktionalität, was Du bestimmt nicht willst.
Ich hoffe, dass es so verständlich ist.
Gruß
yummi

Hallo Matthias,
deine erste Datei ist weder im Papierkorb noch sonst wo gelandet.Sie ist absolut in Ordnung. Für die einzelnen Teams ist da auch genau das was ich wollte. Wie immer hat man dann aber weiterführende Einfälle. 15 Personen sind ein Team. Insgesamt haben wir aber über 60 Personen in der Abteilung und deshalb habe ich den Plan umgestaltet. Dein Code passt jetzt aber nur noch für den oberen Abschnitt.
Deshalb brauche ich da dringend deine und auch die Hilfe der anderen.
Die Begrenzung auf 30 Einträge hat seinen Grund. Im letzten Jahr haben einige bis zu 45 Tage Urlaub eingetragen und haben damit mehr oder weniger Urlaub reserviert. Das heißt sie Urlaubseinträge als Platzhalter für Gleitzeit benutzt. Gleitzeit ist aber kein Urlaub und von daher bei uns nicht erlaubt. Nur unser Chef kann nicht jeden einzelnen überprüfen, wenn es für ihn passt segnet er den Plan ab. Wenn einer weniger als 30 Einträge macht, sollte er anstandslos wieder heraus können. Mann könnte höchstens einen Hinweis rein stellen das er noch so und so viel Urlaub verplanen kann.Nur bei mehr als 30 Einträgen sollte eine Sperrung in kraft treten.
So, jetzt habe ich noch einmal alles neu hochgeladen:
1 mal die Orginale Datei die du schon einmal bearbeitet hast und einmal die neue.
Ich hoffe du kannst mir ( willst mir ) noch einmal helfen.
https://www.herber.de/bbs/user/113255.xlsm
https://www.herber.de/bbs/user/113256.zip
Gruß
Jürgen

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread