VBA kleur aanpassen met kleurindex

[ErikdV]

Ik wil een VBA-script maken met de volgende functie:

1. Een gebruiker kopieert het eerste bestaande tabblad en achteraan . (code heb ik al)
2. Het tablad krijgt automatisch de gewenste naam (code heb ik al)

Sub TabToevoegen()
se = AantalBladen() 'functie: telt aantal tabbladen
Sheets("1").Select
Sheets("1").Copy Before:=Sheets(se) 'voor het laatste tabblad
Sheets("1 (2)").Select
Sheets("1 (2)").Name = se - 1 'naam is nummer
End Sub

3. De gebruiker selecteert de kleur van het tabblad in een kleurenschema
4. De kleur wordt ook gebruikt voor de kopregel (rij 1) van het betreffende tabblad.

Nergens kan ik een script vinden wat een kleurenschema zoals in de excel menu's toont en de colorindex teruggeeft.

Hoe doe ik dit?

 

[zapatr]

Even in een zoekmachine invoeren: "excel colorindex" ( dat duurt slechts enkele seconden) en de antwoorden vliegen je om de oren, bv. op deze webpagina:

http://msdn.microsoft.com/en-us/lib...px#xlDiscoveringColorIndex_ColorIndexProperty
Scroll daar naar beneden en bekijk de kleuren.

Je kunt natuurlijk ook eenvoudig een macrootje van 3 regels schrijven dat je ook het antwoord geeft.

 

[ErikdV]

Ik heb deze pagina al bekeken en ook andere links.
Daar staat inderdaad heel veel info over kleuren en de colorindex, maar ik zie nergens waar ik naar zoek.

Wat ik wil is dat ik de standaardvensters van excel te zien krijg (tabkleur of celeigenschappen/opvulling).
Vervolgens selecteer ik een kleur en deze kleur wordt automatisch zowel in de tabkleur als de kopregel doorgevoerd.

 

[zapatr]

Het is mij niet duidelijk wat je met standaardvensters van Excel bedoelt.
Dat je de tabkleur van een blad eenvoudig kunt instellen zul je waarschijnlijk wel weten: rechtsklik op de tab en kies "Tabkleur". Met welke versie van Excel werk je?

 

[pasan]

Application.Dialogs(xlDialogPatterns).Show

hiervandaan http://www.ozgrid.com/forum/showthread.php?t=87436

 

[pasan]

had niet goed gelezen dat het om tab kleuren ging
probeer deze eens

Sub kleur()
  With Application.Dialogs(xlDialogPatterns)
     .Show
     
     If xlColorIndexNone = True Then Exit Sub
     ActiveWorkbook.Sheets(ActiveSheet.Name).Tab.ColorIndex = Selection.Interior.ColorIndex
  End With
 Selection.Interior.ColorIndex = xlColorIndexNone
End Sub