bestehende Tabellenblätter nicht neu datieren
21.01.2009 15:50:58
Don
. . also,
die Arbeitsmappe hat ein Tabellenblatt für jeden Wochentag (Montag - Freitag) wegen unterschiedlich
bedingter Formatierung.
Per Makro lege ich jeweils ein neues Tabellenblatt der jeweiligen Wochen (Montag - Freitag) an.
Das Makro sorgt dafür, dass das jeweilige Tabellenblatt ans Ende des Arbeitsmappe
gestellt wird, mit der gewünschten Farbe eingefärbt wird und entsprechend benannt und datiert
wird. Das Datum im neu angelegten Tabellenblatt (Zelle B1) wird aus einem weiteren Tabellenblatt bezogen, in dem der gewünschte Montag eingegeben werden muss (TT.MM.JJJJ) die weiteren Zelleninhalte (A2 - A5) werden von Excel berechnet (z. B. Zelle A2 = Zelle A 1 +1).
Leider werden die bisher angelegten Tabellenblätter in derZelle B1 wegen des Zellenbezugs durch das Makro auf das Datum des neu eingegebenen Datums geändert.
Kann man das irgenwie abstellen, sodass das neu eingegebenen Datum nur für die neu anzulegende Woche (Montag - Freitag) gilt?
Hier das Makro:
Sub Woche()
Sheets("Leerformular Mo").Select
Sheets("Leerformular Mo").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!RC[-1]"
Sheets("Leerformular Mo (2)").Select
ActiveWorkbook.Sheets("Leerformular Mo (2)").Tab.ColorIndex = 35
Sheets("Leerformular Mo (2)").Select
Sheets("Leerformular Mo (2)").Name = "Mo 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Di").Select
Sheets("Leerformular Di").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[1]C[-1]"
Sheets("Leerformular Di (2)").Select
ActiveWorkbook.Sheets("Leerformular Di (2)").Tab.ColorIndex = 43
Sheets("Leerformular Di (2)").Select
Sheets("Leerformular Di (2)").Name = "Di 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Mi").Select
Sheets("Leerformular Mi").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[2]C[-1]"
Sheets("Leerformular Mi (2)").Select
ActiveWorkbook.Sheets("Leerformular Mi (2)").Tab.ColorIndex = 50
Sheets("Leerformular Mi (2)").Select
Sheets("Leerformular Mi (2)").Name = "Mi 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Do").Select
Sheets("Leerformular Do").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[3]C[-1]"
Sheets("Leerformular Do (2)").Select
ActiveWorkbook.Sheets("Leerformular Do (2)").Tab.ColorIndex = 36
Sheets("Leerformular Do (2)").Select
Sheets("Leerformular Do (2)").Name = "Do 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Fr").Select
Sheets("Leerformular Fr").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[4]C[-1]"
Sheets("Leerformular Fr (2)").Select
ActiveWorkbook.Sheets("Leerformular Fr (2)").Tab.ColorIndex = 6
Sheets("Leerformular Fr (2)").Select
Sheets("Leerformular Fr (2)").Name = "Fr 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
End Sub
Im freue mich auf eure Hilfe.
Gruß
Don