Sheet mit Monatsnamen, Datum in jew. Sheet
14.07.2016 15:19:59
Dieter(Drummer)
ich suche eine VBA Möglichkeit, dass im jeweiligen Sheet, in A3, das Datum mit dem entsprechenden Monat (wie Sheetname, z.b. "Feb" für Monat 2) in A3 steht.
Dort soll dann z.B. im Sheet Feb, in A3 01.02.2016 stehen. Nach diesem Muster in den 12 Monatssheets. Wichtig: Das erste Datum ist in Sheet "Jan" in A3. Dort kann auch 01.01.2017 stehen. Also die Jahreszahl folgt aus Sheet "Jan" Zelle A3.
Beispiel:
Sheet "Jan" - in A3 01.01.2016
Sheet "Feb" - in A3 01.02.2016 usw. bis Sheet "Dez"
Bis jetzt habe es so gemacht, aber da ist das Jahr konstant 2016 und das ist nicht unbedingt so:
Sub MonateAnpassen()
Sheets("Feb").Range("A3").FormulaR1C1 = "2/1/2016"
Sheets("Mrz").Range("A3").FormulaR1C1 = "3/1/2016"
Sheets("Apr").Range("A3").FormulaR1C1 = "4/1/2016"
Sheets("Mai").Range("A3").FormulaR1C1 = "5/1/2016"
Sheets("Jun").Range("A3").FormulaR1C1 = "6/1/2016"
Sheets("Jul").Range("A3").FormulaR1C1 = "7/1/2016"
Sheets("Aug").Range("A3").FormulaR1C1 = "8/1/2016"
Sheets("Sep").Range("A3").FormulaR1C1 = "9/1/2016"
Sheets("Okt").Range("A3").FormulaR1C1 = "10/1/2016"
Sheets("Nov").Range("A3").FormulaR1C1 = "11/1/2016"
Sheets("Dez").Range("A3").FormulaR1C1 = "12/1/2016"
End Sub
Mit der Bitte um Hilfe.
Gruß, Dieter(Drummer)