Kleur Tabblad

Status
Niet open voor verdere reacties.
Dat is standaard nu eenmaal zo.

Maak eens een nieuw werkboek aan, is dat anders?
 
Jep!

Bij een nieuwe workbook;

de tabbladen die ik bij aanmaak hebben "geen kleur", als ik ze selecteer worden ze wit...
 
Laatst bewerkt:
Laat eens een plaatje zien van dat ander werkboek met xlnone in de code.
 
Klik met de rechtermuisknop op een tab en kies voor tabkleur → geen kleur.
Hoe ziet het er dan uit als je even weer een andere tab hebt geselecteerd.
 
Er mist een stukje aan de linkerkant Eric.

Ook Dim is im.
 
week 3 aangepast naar "Geen kleur"...
 
Laatst bewerkt:
Maak er eens dit van.
Code: 
sSh.Tab.Color = xlAutomatic
 
Thanks Harry ;)

Bekijk bijlage Ron1.xlsm

Draai het macrootje eens in bijgaande sheet, nog steeds blauwe gloed?

++ Juist bij xlautomatic krijg ik zo'n blauwe gloed
 
Laatst bewerkt:
Vreemd,
Er zit bij mij wel een degelijk verschil in kleur van XlNone en XlAutomatic.
 
@Ron,

De foutmelding krijg je in mijn geplaatst bestandje tijdens runnen van die macro?
Zo ja welke error code?
Welke XL versie werk je mee?
 
Er zit bij mij wel een degelijk verschil in kleur van XlNone en XlAutomatic.
Klik om te vergroten...

Hier zie ik geen verschil tussen de twee verschillende codes...
Wat de keur van een tabblad niet kan teweegbrengen :)
 
@ EvR

Had de macro in mijn testfile geplakt, als ik jullie files download worden de macro's auto uitgeschakeld (door bedrijf), ik kopieer de tekst dus...
Excel 2016
 
Eric,

Geen foutmelding, wel die blauwe gloed.
Bij xlAutomatic zijn ze allen wit.

Excel 2007.
 
Thanks Harry, bij mij net andersom...

@Ron:

in jouw bestand (uit post 31)

Code: 
Private Sub Workbook_Open()

'Openen op huidige week

Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
    With ThisWorkbook
        .Sheets(tDay).Activate
        .Unprotect "paswoord"
                For Each sSh In .Sheets
                    If sSh.Tab.Color = 255 Then sSh.Tab.Color = Sheets(1).Tab.Color
                   ' sSh.Tab.ColorIndex = xlNone
                     If sSh.Tab.TintAndShade Then sSh.Tab.TintAndShade = False
                     If sSh.Tab.ThemeColor <> 0 Then sSh.Tab.ThemeColor = 0
                Next sSh
         ActiveSheet.Tab.Color = 255
        .Protect "paswoord"
    End With
    



'wegschrijven_backup_teller

' Automatisch afsluiten file
' close_time = Now + TimeValue("00:30:00")
' run_time

'Beeld_aanpassen
 
End Sub


Loop er eens met F8 doorheen en kijk wat er per stap met de tabjes gebeurt
eventueel de ' weghalen voor : ' sSh.Tab.ColorIndex = xlNone
 
Dat er ook nog verschil zit in versies wordt het er niet betrouwbaarder op om codes te schrijven.

Nu is het goed Ron?

Ps, onderstaand stukje nog wel aanpassen, anders opent het volgend jaar of het jaar daarop in de verkeerde week.
Code: 
tDay = "WEEK " & Format(Date, "ww")
In.
Code: 
tDay = "WEEK " & Format(Date, "ww",2,2)
Of:
Code: 
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)

Zet er nog de blauwe coderegel tussen, dan flikkert het beeld niet.
Code: 
Dim tDay As String, sSh As Worksheet
[COLOR=#0000ff]application.screenupdating = false[/COLOR]
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)
 
@Harry

Onderstaand macrootje geeft bij mij in XL2016 en mijn windowssettings dit als uitkomst:

tab zonder wijziging, color op False index staat op -4142
tab color gezet op false : color op False index staat op -4142
tab color gezet op xlautomatic : color op 16773111 index staat op 24
tab colorindex gezet op xlnone : color op False index staat op -4142
Klik om te vergroten...

Code: 
Sub Macro1()

    With ActiveWorkbook.Sheets(1)

        Debug.Print "tab zonder wijziging, color op  " & .Tab.Color & " index staat op " & .Tab.ColorIndex

            .Tab.Color = False
        Debug.Print "tab color gezet op false : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
 
            .Tab.Color = xlAutomatic
        Debug.Print "tab color gezet op xlautomatic : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
 
        .Tab.ColorIndex = xlNone
        Debug.Print "tab colorindex gezet op xlnone : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
 
    End With
End Sub

eea uitgevoerd in een nieuw leeg bestandje
Dit is bij jou dus anders?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan