Tabs Maken,benoemen en kleuren

[PJurriaans Sr]

Graag wil ik geholpen worden bij het volgende.Ik open in Excel een nieuwe Map met een X
aantal bladen, dat moeten er meer wordenen die bladen moeten ook een naam krijgen bvd de Maanden en ook verschillende kleuren.Daarvoor heb ik een programmaatje
End Subhreven giga groot,dat moet korter kunnen dus sleutelen zie hoever ik ben
gekomen.

gescSub Labels()
Sheets("Sheet16").Select ' Ik laat Excel 18 bladen maken erg lastig moet steeds enz.
ActiveWindow.TabRatio = 0.963
Dim Werkblad As Worksheet
Dim i As Integer
For Each Werkblad In ActiveWorkbook.Worksheets
i = i + 1
Werkblad.Name = Range("A" & i)
Werkblad.Tab.ColorIndex = i
Next Werkblad
End Sub

het probleem is dat ik hiervoor een Aray met mnd. in Sheet 16 moet maken en dat alle
bladen de zelfde kleur krijgen.Als iemand mij kan helpen Zie hoe vriendelijk ik kijk!!!

Mvrgr.Peter.en een fijne Kerst en een gelukkig Nieuwjaar.
Gewenst.:thumb:

 

[Wigi]

Dit is redelijk hard gokwerk over wat jouw bedeoeling nu specifiek is, maar toch:

Sub Labels()

Dim i As Integer

For i = 1 To 12
    Sheets(i).Name = Format(DateSerial(2007, i, 1), "mmmm")
    Sheets(i).Tab.ColorIndex = i
Next

End Sub

Wigi

 

[PJurriaans Sr]

Tabs Maken,benoemen en kleuren re reactie

WiGi Bedankt:thumb: Geweldig ik zal proberen te begrijpen hoe dat programma
doet wat ik wil.En mijn verontschuldeging voor de onduidelijke vraagstelling.Is er mischien
ook een code die het aantal sheets vermeerderd?
Fijne feestdagen gewenst.Peter