|
Jahresdienstplan der Selber rechnet
|
| Autor |
Nachricht |
watsche1984
Gast
Verfasst am: 08. Feb 2010, 18:43 Rufname:
|
|
| Version: Office 2007 |
|
Hi ich habe einen Dienstplan wo 3 verschieden Nachtdienste, 4 Frühdienste und 2 Spätdienste drin sind. Nun hab ich es jedes Jahr per Hand gerechnet nun würd ich gern wissen ob mir einer das so machen kann das Excel das selbst berechnet da der Plan vortlaufend ist.
Habe denn Plan mal dran gehangen damit man sieht wie der Plan auf gebaut ist
http://www.fileuploadx.de/904410
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 08. Feb 2010, 19:12 Rufname:
|
| |
| Version: Office 2007 |
|
alternativ wäre es auch so möglich nur leider find ich auch da keine möglichkeit das Excel selbst weiter Rechnet...
http://www.fileuploadx.de/38261
|
|
Rasie
OOo-Calc Bastler
Verfasst am: 08. Feb 2010, 23:09 Rufname:
Wohnort: Sauerland
|
|
| Version: Office 2003 |
|
Hi watsche,
| Zitat: |
nur leider find ich auch da keine möglichkeit das Excel selbst weiter Rechnet...
| schau doch mal bei "Klaus-Dieter's Excelwelt" vorbei, und dort besonders bei Schichtplaner und dann Formellösung.
_________________ Gruß
Rasie
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 09. Feb 2010, 12:21 Rufname:
|
|
| Version: Office 2007 |
|
@ Rasie vielen Dnk für denn Hinweis. Leider komme ich damit nicht weiter da mit die Kenntnisse fehlen da 11Wochen einzubringen.
Ich glaub am einfachsten ist es wenn das Datum in der Zweiten Tabelle sich selbst ändert und der Bezug ich mit jeder neuen Woche nach unten Spring. Aber auch dafür hab ich noch keine Formel gefunden und mit Makros kenn ich mich nicht aus
|
|
Rasie
OOo-Calc Bastler
Verfasst am: 12. Feb 2010, 16:03 Rufname:
Wohnort: Sauerland
|
| |
| Version: Office 2007 |
|
Hi watsche,
ich beziehe mich auf die Datei Dienstplan.xls.
| Zitat: |
Leider komme ich damit nicht weiter da mit die Kenntnisse fehlen da 11Wochen einzubringen.
|
Es geht nicht um 11 Wochen, sondern um 11 Wochen mal 7 Tage (11x7) = 77 Tage. Also musst Du irgendwo einen 3-Spaltigen Bereich reservieren der 77 Zeilen groß ist. Am besten nimmst Du dafür ein neues Tabellenblatt mit den Namen Schicht. Und in diesem schreibst Du in A1 Datum, B1 Kennzahl und in C1 Schicht.
Nun gibst Du in A2 einfach den 1.1.2010 ein, und ziehst diese Zelle runter bis A78.
In B2 gibst Du einfach folgende Formel ein.
und ziehst diese bis zu B78 runter.
Nun wechselst Du auf das Blatt "Jan-März 10" und markierst den Bereich B4:B34 und kopierst ihn. Jetzt wechselst Du zurück auf das Blatt Schicht und fügst in C2 den Inhalt der Zwischenablage ein.
Wieder zurück auf das Blatt "Jan-März 10" und den Bereich E3:E30 markieren kopieren. Wechsel auf Blatt Schicht, und in C33 einfügen.
Wieder zurück auf das Blatt "Jan-März 10" und den Bereich H3:H20 markieren kopieren. Wechsel auf Blatt Schicht, und in C61 einfügen.
Jetzt hast Du deinen 77 Tage langen Schichtrythmus mit dem Du arbeiten kannst. Und ich denke mir mal das Du jetzt wohl den Rest alleine hinbekommst, wenn Du dir den Link noch mal in Ruhe durcharbeitest.
_________________ Gruß
Rasie
|
|
Gast
Verfasst am: 13. Feb 2010, 09:51 Rufname:
|
|
| Version: Office 2007 |
|
vielen dank das hilft mir ja schon viel weiter nun hab ich mir nen Kalender nach seinen Tips erstellt und wollte die Feiertage in denn Kalender einfügen, leider scheint das Makro auf seiner seite http://excelwelt.de/Kalender/kalmak.html nen Fehler zu haben oder eher ich habe einen drin...
Sobald ich auf meine Schaltfläsche klicke Debugt er mir den Fehler For intAnz = 3 To Sheets("Termine").Range("E2").End(xlDown).Row ' sonstige Termine einlesen[/url]
|
|
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms

Verfasst am: 13. Feb 2010, 10:36 Rufname: Klaus
Wohnort: Sassenburg
|
|
| Version: Office 2007 |
|
Hallo,
schick mir die Datei mal per Mail, dann sehe ich mir das an. Die Adresse findest du auf meiner Seite im Impressum.
_________________ Viele Grüße
Klaus-Dieter
Alias Donkey
Yoga ist besser als rumsitzen und gar nichts machen
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 13. Feb 2010, 10:52 Rufname:
|
|
| Version: Office 2007 |
|
| Vielen Dak für das Angeot gern nehm ich es an hab Ihnen die Datei grade los gesendet
|
|
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms

Verfasst am: 13. Feb 2010, 11:15 Rufname: Klaus
Wohnort: Sassenburg
|
|
| Version: Office 2007 |
|
Hallo,
ich versuche da durchzusteigen. Die Uhrzeiten in Verbindung mit der Schicht, sind nicht so prall. Ich werde versuchen, das zu optimieren. Die Spalten ohne "ich" sind die Schichten der Kollegen?
_________________ Viele Grüße
Klaus-Dieter
Alias Donkey
Yoga ist besser als rumsitzen und gar nichts machen
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 13. Feb 2010, 11:34 Rufname:
|
|
| Version: Office 2007 |
|
| ist richtig hab dir aber auch eine fast fertige Tabelle gesendet, wo der Debug angeht, ist die Datei dienstplan1 die letzetn 3 Blätter
|
|
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms

Verfasst am: 13. Feb 2010, 11:41 Rufname: Klaus
Wohnort: Sassenburg
|
|
| Version: Office 2007 |
|
Hallo,
bei mir sind nur Dateien ohne Makro angekommen. Das Makro in der Textdatei ist das, mit dem du arbeitest?
_________________ Viele Grüße
Klaus-Dieter
Alias Donkey
Yoga ist besser als rumsitzen und gar nichts machen
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 13. Feb 2010, 11:47 Rufname:
|
|
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms

Verfasst am: 13. Feb 2010, 12:39 Rufname: Klaus
Wohnort: Sassenburg
|
|
| Version: Office 2007 |
|
Hallo,
um es kurz auf den Punkt zu bringen, du hast das Prinzip entweder nicht verstanden, oder zumindest nicht richtig umgesetzt.
Die Schichtfolge, die du im Makro in das Array sk eingetragen hast, ist die richtige? Wenn ja, an welchem Tag beginnt diese Schichtfolge (Datum)?
Der Aufbau der Tabelle 10 ist nicht zweckdienlich.
_________________ Viele Grüße
Klaus-Dieter
Alias Donkey
Yoga ist besser als rumsitzen und gar nichts machen
|
|
Rasie
OOo-Calc Bastler
Verfasst am: 13. Feb 2010, 12:41 Rufname:
Wohnort: Sauerland
|
|
| Version: Office 2003 |
|
Hallo Leute,
Makros sind ja nun überhaupt nicht meine Welt (egal ob in Calc oder Excel), aber dennoch ist mir da etwas aufgefallen.
| Code: |
For intAnz = 3 To Sheets("Termine").Range("E2").End(xlDown).Row
|
In der verlinkten Beispieldatei sehe ich
1. keine Makros
und
2. kein Tabellenblatt mit dem Namen "Termine"
Da bleibt es ja wohl nicht aus das Excel määähääckert
Also muss wohl das Tabellenblatt entweder umgenannt werden, oder aber das Makro dementsprechend geändert werden.
_________________ Gruß
Rasie
|
|
watsche
Im Profil kannst Du frei den Rang ändern
Verfasst am: 13. Feb 2010, 18:59 Rufname:
|
| |
| Version: Office 2007 |
|
Da ich weder eure Hilfe noch die eigentlich gut geschriebene Beschreibung von Klaus-Dieter versteh, da mein Basic wissen gleich null ist. Werd ich das Projekt wohl aufgeben, leider
|
|