Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Macro zum Schichteneintrag

Macro zum Schichteneintrag
03.12.2014 12:03:34
Ilch
Hallo Zusammen
Ich habe mal wieder nach langer Zeit ein Problem , welches ich alleine nicht lösen kann, da ich mich mit VBA nicht auskenne.
Ich habe einen Schichtenplan erstellt, in dem für 5 Schichten die Schicht mittels VBA eingetragen werden sollen. Der vortlaufende Schichtrytmus ab dem 01.01.2014 ist im Blatt Vorgaben eingetragen . dieser sollte dann im Blatt Jahresplanung eingetragen werden wenn mann den Spinnbutton betätigt. Was ich mal Händisch für 3 Tage schon mal als Beispiel eingetragen habe.
Ich hoffe jemand hat Zeit sich meines Problems anzunehmen und kann mir helfen. Die datei lade ich als anhang mit hoch:

Die Datei https://www.herber.de/bbs/user/94161.xls wurde aus Datenschutzgründen gelöscht


Vielen Dank im vorraus
Grüße Ilch

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro zum Schichteneintrag
04.12.2014 15:59:16
Gerold
Hallo
Schau dir mal die Formeln in der Zeile 22 an
Jahresplanung

 BCDEFGHIJKLMNOPQRSTUVWXYZAAAB
16S2S5S3S2S5S3S4S2S5                  
17S2S5S3S2S5S3S4S2S5                  
18S2S5S3S2S5S3S4S2S5                  
19                           
20                           
21                           
22S2S5S3S2S5S3S4S2S5S4S2S5S1S4S2S1S4S2S3S1S4S3S1S4S5S3S1

Formeln der Tabelle
ZelleFormel
B22=INDEX(Vorgaben!$K$12:$O$12;REST(B2+1;5)+1)
C22=INDEX(Vorgaben!$K$12:$O$12;REST(C2+4;5)+1)
D22=INDEX(Vorgaben!$K$12:$O$12;REST(D2+2;5)+1)
E22=INDEX(Vorgaben!$K$12:$O$12;REST(E2+0;5)+1)
F22=INDEX(Vorgaben!$K$12:$O$12;REST(F2+3;5)+1)
G22=INDEX(Vorgaben!$K$12:$O$12;REST(G2+1;5)+1)
H22=INDEX(Vorgaben!$K$12:$O$12;REST(H2+1;5)+1)
I22=INDEX(Vorgaben!$K$12:$O$12;REST(I2+4;5)+1)
J22=INDEX(Vorgaben!$K$12:$O$12;REST(J2+2;5)+1)
K22=INDEX(Vorgaben!$K$12:$O$12;REST(K2+0;5)+1)
L22=INDEX(Vorgaben!$K$12:$O$12;REST(L2+3;5)+1)
M22=INDEX(Vorgaben!$K$12:$O$12;REST(M2+1;5)+1)
N22=INDEX(Vorgaben!$K$12:$O$12;REST(N2+1;5)+1)
O22=INDEX(Vorgaben!$K$12:$O$12;REST(O2+4;5)+1)
P22=INDEX(Vorgaben!$K$12:$O$12;REST(P2+2;5)+1)
Q22=INDEX(Vorgaben!$K$12:$O$12;REST(Q2+0;5)+1)
R22=INDEX(Vorgaben!$K$12:$O$12;REST(R2+3;5)+1)
S22=INDEX(Vorgaben!$K$12:$O$12;REST(S2+1;5)+1)
T22=INDEX(Vorgaben!$K$12:$O$12;REST(T2+1;5)+1)
U22=INDEX(Vorgaben!$K$12:$O$12;REST(U2+4;5)+1)
V22=INDEX(Vorgaben!$K$12:$O$12;REST(V2+2;5)+1)
W22=INDEX(Vorgaben!$K$12:$O$12;REST(W2+0;5)+1)
X22=INDEX(Vorgaben!$K$12:$O$12;REST(X2+3;5)+1)
Y22=INDEX(Vorgaben!$K$12:$O$12;REST(Y2+1;5)+1)
Z22=INDEX(Vorgaben!$K$12:$O$12;REST(Z2+1;5)+1)
AA22=INDEX(Vorgaben!$K$12:$O$12;REST(AA2+4;5)+1)
AB22=INDEX(Vorgaben!$K$12:$O$12;REST(AB2+2;5)+1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Mfg Gerold
Rückmeldung wäre nett.

Anzeige
AW: Macro zum Schichteneintrag
04.12.2014 18:42:44
Ilch
Hallo Gerold
Vielen Dank für Deine Mühe, die möglichkeit mit den Formeln ist supper und funktioniert auch gut, aber leider kann ich diese nicht nutzen, da ich ja wenn ich im kalender was ändere dann die Formeln immer löschen würde, und wie ich den Schichtkalender fortlaufend gestallte um Ihn über Jahre nutzen zu können wüsste ich auch nicht. Die Schichten sollen deshalb mit einem Macro eingetragen werden, damit ich Oder andere kollegen einzelne korrekturen durchführen können.
Vielen Dank für Deine Mühe
Grüße Ilch

AW: Macro zum Schichteneintrag
05.12.2014 19:04:56
Gerold
Hallo
Schau dir mal folgende Datei an.
https://www.herber.de/bbs/user/94233.xls
Mfg Gerold
Rückmeldung wäre nett.

Anzeige
AW: Macro zum Schichteneintrag
05.12.2014 19:40:44
Gerold
Hallo
Du hast eine Zelle in "jahr" umbenannt. Ändere den Namen um (z.B. in Mein_Jahr).
Das Wort "Jahr" wird schon für Formeln vewendet.
Berechnungen in deiner Tabelle passen sonst nicht.
Bitte dann das Wort "jahr" auch in den Formeln ändern.
Mfg Gerold

AW: Macro zum Schichteneintrag
05.12.2014 21:53:31
Ilch
Hallo Gerold
Vielen Dank für Deine Mühe und Deine Ausdauer. Ich habe so wie du es schreibst Die Zelle A2 umbenannt in mein_jahr sowie auch die Formeln, doch dann funktioniert meine OsterFeiertagsberechnung nicht mehr Und die Wochentage werden auch nur als Fehler ausgegeben mache ich da etwas falsch
=DATUM(mein_jahr;1;1)
Da wird das ergebniss noch richtig angezeigt
Für:
=ostern+1
=ostern+39
=ostern+50
=ostern+60
leider nicht mehr
Als Ergebnis bekomme ich dann #Name?
und so setzt es sich dann in der Tabelle Jahresplanung durchgehend für die Wochentagsnahmen fort.
Weisst Du Rat.
Grüße Ilch

Anzeige
AW: Macro zum Schichteneintrag
05.12.2014 22:55:58
Gerold
Hallo
Habe "jahr" umbenannt im "Me_Jahr" und außerdem noch ein paar Kommentarzeilen in den Code eingefügt.
Lade bitte folgende Datei noch mal runter.
https://www.herber.de/bbs/user/94238.xls
Mfg Gerold
Rückmeldung wäre nett.

AW: Macro zum Schichteneintrag
07.12.2014 13:25:24
Ilch
Hallo Gerold
Erst mal nocheinmal vielen Dank das Du Dir so viel Zeit und Mühe investierst. Vielen Dank
Leider muss ich sagen das die Mappe so ganz gut funktioniert aber die Schichten nicht richtig eingetragen werden. Es muss Dir da ein Fehler bei der Schleifenerstellung für die Eintragung unterlaufen sein. Ich habe mal die Eintragung von Schicht 3 mit dem richtigen Schichtplan und der Sollsittuation in der Mappe verglichen.Die richtigen Startschichten habe ich mal grün makiert . Siehe Photo.
Userbild
Ich hoffe Du hast noch mal die muße drauf zu schauen Grüße
Ilch

Anzeige
AW: Macro zum Schichteneintrag
07.12.2014 15:28:26
Ilch
Ich noch mal hatte vergessen die Tage einzutragen
Userbild

AW: Macro zum Schichteneintrag
08.12.2014 14:59:04
Ilch
Hallo Gerold
Vielen Dank habe ein wenig rumm gespielt mit der Datei bis jetzt ist alles zu meiner zufriedenheit , konnte keinen Fehler finden. Alles super vielen Dank für Deine Mühe und durchhaltevermögen.
Echt toll das Du es geschafft hast.
Freundliche Grüße
Ilch
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige