Frage@ Hajo wegen Script
29.10.2003 09:04:55
Markus H.
du hattest mir doch den Script gegeben..
'
Sub Makro2()
Dim Ini As Integer
For Ini = 2 To 52
Sheets("1.KW").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Ini & ".KW"
Range("B1") = Range("B1") + Ini - 1
Next Ini
With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("Modul1")
End With
End Sub
'
Wie kann ich das Script erweitern wenn BS3 immer plus 14 gerechnet werden soll?? also in Tabellenblatt 1.KW steht in dem Feld 10.12.2003
in 2.KW soll 24.12.2003 stehen usw.
thx
Markus