Makro Hilfe
03.08.2003 20:39:06
Panella
in meiner arbeitsmappe habe ich eie tabelle die ich mit einem
makro 31 mal kopiere, das funktioniert auch mit dem zweite makro
möchte ich die tabellenblätter nach dem datum das in D2 steht
benennen das funktioniert NICHT da sich die formel in D2 nicht
um die tabellen nummer erhöht.
die formel in der zelle D2 heist/ ='1'!D2+1 bleibt immer gleich.
Makro 1
Sub Copy_31()
Dim WKS As Worksheet
Dim iCounter As Integer
Application.ScreenUpdating = False
Set WKS = ActiveSheet
For iCounter = 3 To 31
WKS.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = iCounter
Next iCounter
Worksheets(2).Select
Application.ScreenUpdating = True
End Sub
Makro 2
Sub Name_geben()
Dim I As Integer
On Error Resume Next
For I = 1 To Worksheets.Count
Worksheets(I).Name = Format(Worksheets(I).Range("D2"), "ddd.dd")
Next I
End Sub
wer kan mir den da bitte helfen
danke im vorraus
Armando
Anzeige