ForeColor tabstrip wijzigen

[AD1957]

Zou graag de ForeColor wijzigen als ik een tabblad aanklic
zodat duidelijker te zien is in welke maand ik zit te kijken.

Groet,
Albert

Bekijk bijlage tabstrip.xlsb

 

[VenA]

Dat kan je toch eenvoudig met de macrorecorder opnemen.

In de module van ThisWorkbook bv

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Sh.Tab.Color = vbGreen
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Sh.Tab.Color = vbWhite
End Sub

 

[AD1957]

sorry Vena,
Ben weer niet duidelijk geweest in mijn vraagstelling.
Gaat om de ForeColor van de tabbladen in de Userform.

Groet,
Albert

 

[SjonR]

Volgens mij kan je dat niet apart laten kleuren. Ik heb ooit iets gemaakt waarbij ik een tekstvrij label boven de tabs plaatste welke wel kunnen meekleuren.

 

[AD1957]

IK heb inmiddels in de eigenschappen de style veranderd in tabstylebuttons
dan zie je in ieder geval al duidelijk welke tab geactiveerd is.
IK laat de vraag toch nog even openstaan misschien dat het toch mogelijk is om de kleur aan te passen

 

[edmoor]

Dat gaat helaas niet. Kijk eens hier voor allerlei dingen m.b.t. de TabStrip control:
http://www.planet-source-code.com/v...archResults.asp?lngWId=1&txtCriteria=tabstrip

 

[AD1957]

Hoi edmoor,
zal eens gaan rondneuzen op deze link.
Met de oplossing "tabstylebuttons" ben ik echter al tevreden.
Groet,
Albert

 

[HSV]

Omdat ik me verveelde.

 

[AD1957]

HSV je bent echt GIGA.
Als beginneling heb ik toch wel een klein uurtje nodig gehad om te achterhalen hoe je dit hebt gedaan.
Super oplossing:thumb:

Echter opeens een probleemtje:
Voorheen was het zo dat de waardes in textboxen direct veranderde als in de listfilrange
een bedrag veranderde. Dit werkt nu niet meer.
Ik kan echter in de code niets vinden waardoor dit komt.
Misschien wil jij er eens even naar kijken.
Groet,
Albert

Bekijk bijlage tabstripHSV.xlsb

 

[HSV]

Dat kan zo.

 

[AD1957]

Dom van mij dat ik nou net deze regel over het hoofd heb gezien

Private Sub Worksheet_Change(ByVal Target As Range)
 Userform1.TabStrip1_Change
End Sub

Dank en groet,
Albert