Monate in Wochen umrechnen und Spalten hinzufügen

Bild

Betrifft: Monate in Wochen umrechnen und Spalten hinzufügen
von: Niko
Geschrieben am: 14.07.2015 15:21:18

Hallo zusammen,
ich möchte gerne ein Makro zu folgendem Problem kreieren:
Eine Tabelle mit mehreren Spalten in denen pro Spalte ein Monat des aktuellen Jahres beginnend mit dem aktuellen Monat stehen, das Folgejahr mit den Quartalen und dann noch 2 weitere Jahre mit jeweils nur einer Spalte. Unter diesen Zellen stehen Mengen (Bedarfe) mit einem Datum (in 2 separaten Zellen untereinander). Das Makro soll den aktuellen und den folgenden Monat erkennen und errechnen wie viele Wochen diese Monate haben. Dann sollen beide Monate durch die Wochen ersetzt werden und die Bedarfsmengen sollen anhand des Datums in die richtige Woche eingefügt werden. Auf der linken Achse stehen Produkte.
Hier ein Beispiel meiner Datei: https://www.herber.de/bbs/user/98816.xlsm
Falls ich zu wenig Infos da gelassen habe bitte einfach fragen.
Vielen Dank schon mal.
Freundliche Grüße
Niko

Bild

Betrifft: AW: Monate in Wochen umrechnen und Spalten hinzufügen
von: Niko
Geschrieben am: 15.07.2015 14:59:26
Hallo zusammen,
ich habe es schon mal hinbekommen das Datum aus J13 und K13 auszulesen.
Dim dtCurrMonth As Date
Dim dtNextMonth As Date


'Datum aus Zellen auslesen

dtCurrMonth = Sheets("Fixed Per. 2 month").Range("J13")
dtCurrMonth = Format(dtCurrMonth, "DD.MM.YYYY")

dtNextMonth = Sheets("Fixed Per. 2 month").Range("K13")
dtNextMonth = Format(dtNextMonth, "DD.MM.YYYY")
Ich habe mir auch eine kleine Übersicht gemacht, welche Punkte im Makro vorkommen müssen:
- Lese Datum aus Zelle J13
- Errechne Anzahl Wochen von Monat aus Zelle J13
- Füge so viele Spalten vor J13 ein wie es Wochen in diesem Monat aus J13 gibt
- Schreibe in jede neue Spalte in Zeile 13 die KW des Monats aus der ursprünglichen
Dann gibt es noch Bedarfe die ein Datum haben. Diese Mengen sollen anhand des Datums in die jeweilige Woche in die das Datum gehört geschrieben werden.
Bisher bin ich noch nicht weiter gekommen. Ich hoffe sehr auf ein paar Tips.
Habt vielen Dank!
Freundliche Grüße
Niko

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Monate in Wochen umrechnen und Spalten hinzufügen"