Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Korrekte übernahme des Datums per VBA

Korrekte übernahme des Datums per VBA
28.02.2008 20:04:00
Maik
Hallo liebe VBA und Excel-fans
Ich habe hier schon des öffteren die Lösung zu meinem Problem gefunden, doch nun steh ich an. Ich hoffe ihr könnt mir bei meinem Problem helfen.
Ich muss für unseren Betrieb ein Montageprogramm entwickeln, dass durch knopfdruck 52 Sheet erstellt (für jede Kalenderwoche eine), die die jeweilige Kalderwoche als Namen trägt.
Dies funktioniert auch schon ganz gut.
Die Tabelle hat fünf Spalten, in denen jeweils die Arbeitstage stehen, also Montag, Dienstag .... bis Freitag.
Nun ist es so, dass wenn ich die Sheets kopiere ich die Datumsangabe 1:1 übernehme, dass heisst auf dem Sheet "KW 01 2009" und "KW 02 2009" am Montag das gleiche Datum steht.
Ich habe versucht dies so hinzubiegen, das es funktioniert. Jetzt ist es aber so, dass im Februar egal ob Schaltjahr oder nicht der 29.02 integriert ist.
Ich hoffe ich konnte euch mein Problem einwenig schildern. Am besten ihr seht euch die Datei mal an.
Kennt jemand eine Lösung, Code oder Lösungsansatz dazu?
(Tabelle wurde selbstverständlich hochgeladen)
Ich danke euch und liebe Grüsse aus der Schweiz
https://www.herber.de/bbs/user/50275.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Korrekte übernahme des Datums per VBA
28.02.2008 20:51:00
Matthias
Hallo Maik,
schau mal das an:
KW 01 2009
 ABCDEFGHIJK
12009 Torbaumontagen für die Woche KW 01
2  
3           
4Monteure Montag Dienstag Mittwoch Donnerstag Freitag
5  29.12.2008 30.12.2008 31.12.2008 01.01.2009 02.01.2009
Formeln der Tabelle
A1 : =WERT(RECHTS(ZELLE("Dateiname";$B$1);4))
B1 : =WERT(A1)
K1 : =LINKS(RECHTS(ZELLE("Dateiname";$B$1);10);5)
B2 : =WERT(TEIL(K1;4;2))
C4 : =C5
E4 : =E5
G4 : =G5
I4 : =I5
K4 : =K5
C5 : =DATUM(B1;1;1)-WOCHENTAG(DATUM(B1;1;1);3)+(B2+RUNDEN(WOCHENTAG(DATUM(B1;1;1);3)/7;0)-1)*7
E5 : =C5+1
G5 : =E5+1
I5 : =G5+1
K5 : =I5+1
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Die Formeln in A1 und K1 übernehmen direkt aus dem Blattname das Jahr (A1) und die KW (K1).
in B1 und B2 stehen dann das ermittelte Jahr (B1) und die KW (B2) als Zahl.
in C5 steht die Formel, die aus dem Jahr und der KW das Datum der ersten Tages errechnet (diese Formel ist nicht von mir).
Mit dieser Tabelle kann sich dein Makro darauf beschränken, die Blätter zu kopieren udn den Blattnamen zu ändern. Beim Blattnamen darfst du halt keinen Fehler machen "KW xx yyyy", also kein Leerzeichen zuviel oder so. Am besten die Mappe nach Erstellung schützen.
Gruß Matthias

Anzeige
AW: Korrekte übernahme des Datums per VBA
28.02.2008 22:09:48
Maik
Hey Matthias
Super! Danke! Hat prima geklappt vielen Dank für die schnelle Antwort :)
Gruss Maik

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige