ein Schichtplan für einen Monat soll nach Aufruf einer Vorlage (Datei - neu) erstellt werden nachdem der Monat in der neuen Datei in H4 im Format t/m/j eingegeben und eine Schaltfläche angeklickt wird, die ein Makro startet.
In diesem Makro wird von einem Ausgangsdatum aus ermittelt, welcher Tag des kontinuierlich erfolgenden Schichtwechsels (in Hilfszeile: 1-1-1-1-1-0-0-2-2-2-2-2-0-0- etc.) auf den ersten Tag des zu erstellenden Monats entfällt und von diesem Tag an in die Tabelle eingetragen.
start = DateSerial(2001, 12, 31)
kor = (Cells(2, 8) - start) Mod (14) '(Cells(2, 8) ist Moantseingabe)
In einer Schleife wird nun für jeden Tag des Monats auf einen Wert in der Hilfszeile zugegriffen.
Cells(6, i) = Cells(1, i + kor)
Meine Frage: läßt sich das auch ohne die Hilfszeile in der Tabelle mit einer VBA Formel erledigen?
Vielen Dank
Peter