Makro
04.08.2003 13:39:59
Armando.P
mein problem!
ich möchte in einer mappe in der ein arbeitsblatt mit dem namen '1'
vorhanden ist, 30 weitere kopieren.
das funktioniert auch aber das datum das ich im ersten blatt aus einer anderen
arbeitsmappe beziehe kopiert nicht fortlaufend weiter
die formel steht in D2 Blatt '1'
=DATUM('\\DE672960S00001\PCS_PLANER\PCS_Planer\[PCS_kalender]KAL'!$B$2;8;1
die formel für blatt '2' müste nun folgender masen lauten
='1'D2+1
kann mann das in ein Makro so einbauen das es funktioniert?
mein kopier makro!
Sub Copy_31()
Dim WKS As Worksheet
Dim iCounter As Integer
Application.ScreenUpdating = False
Set WKS = ActiveSheet
For iCounter = 2 To 31
WKS.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = iCounter
Next iCounter
Worksheets(2).Select
Application.ScreenUpdating = True
End Sub
bitte um eure hilfe
danke
Armando
Anzeige