• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tabblad kleur wijzigen o.b.v. celwaarde

Status
Niet open voor verdere reacties.

abbcdcg

Gebruiker
Lid geworden
12 mrt 2012
Berichten
61
Hallo,

Ik zou graag de kleur van het tabblad willen wijzigen o.b.v. de celwaarde, bij voorkeur zonder VBA. De celwaarde is altijd 1 of 2, dit wordt bepaald o.b.v. een keuzemenu.
Ik heb gestoeid met VO =INDIRECT()=x, maar ik loop dan weer net vast.

Wie weet raad?

B.v.d.
 

Bijlagen

  • Tabblad_kleur.xlsx
    11,1 KB · Weergaven: 46
De kleur van een tabblad kan je alleen handmatig of via VBA wijzigen.
Zie de simpele code:
Bekijk bijlage Tabblad_kleur-1.xlsm

Nog simpeler is deze:
Code:
Sub Vervolgkeuzelijst1_BijWijzigen()
    ActiveSheet.Tab.Color = IIf(ActiveSheet.DropDowns(Application.Caller).Value = 1, vbGreen, vbRed)
End Sub
 
Laatst bewerkt:
of
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$3" Then ActiveSheet.Tab.Color = vbGreen - 65025 * (Target - 1)
End Sub
 
Deze is gelukt, verwerkt en klaar. Maar als je dan bezig bent, komt het volgende idee alweer...

Met welke macro is het mogelijk (is het mogelijk?) om een tabblad te verbergen o.b.v. celinhoud?

Bekijk bijlage Tabblad_kleur-2.xlsm

B.v.d. !
 
Laatst bewerkt:
Voorbeeldje:
Code:
If Range("A1") = "VERBERG" Then
    Sheets(Range("B1")).Visible = False
EndIf
 
Kan ik deze in dezelfde module plaatsen met aanpassing naar de juiste cel of anders?
 
Ja, uiteraard.
 
Wat mis ik dan?? (het loopt niet...)

Code:
Sub Vervolgkeuzelijst1_BijWijzigen()
    Select Case ActiveSheet.DropDowns(Application.Caller).Value
        Case 1: ActiveSheet.Tab.Color = Range("F4").Interior.Color
        Case 2: ActiveSheet.Tab.Color = Range("F5").Interior.Color
        Case Else
            ActiveSheet.Tab.Color = xlNone
    End Select
End Sub

Sub Verberg()
If Range("E3") = "3" Then
    Sheets(Range("B1")).Visible = False
End If
End Sub
 
Omdat je het nu in een aparte Sub hebt gezet die nergens wordt geactiveerd.
Hou er daarnaast ook rekening mee dat "3" iets anders is dan 3.
 
edmoor, ik mis de boot ergens.
Ik wil het tabblad laten verbergen op basis van de output van de menu keuze. Deze is reeds aan een macro gekoppeld. Ik zie even niet hoe ik de code voor het tabblad verbergen hier in kan koppelen helaas...
 
En welk tabblad wil je verbergen als die keuze wordt gemaakt?
Het huidige blad?
Code:
Sub Vervolgkeuzelijst1_BijWijzigen()
    Select Case ActiveSheet.DropDowns(Application.Caller).Value
        Case 1: ActiveSheet.Tab.Color = Range("F4").Interior.Color
        Case 2: ActiveSheet.Tab.Color = Range("F5").Interior.Color
        Case 3: ActiveSheet.Visible = False
        Case Else
            ActiveSheet.Tab.Color = xlNone
    End Select
End Sub

Maar hoe en wanneer wil je die weer zichtbaar krijgen dan?
 
Laatst bewerkt:
Maar hoe en wanneer wil je die weer zichtbaar krijgen dan?

Het bestand omvat een +/- 10 werkbladen, en wordt door +/- 15 mensen gebruikt. Voor nu volstaat deze methode en kan middels rechter muisknop een tabblad weer naar voren worden gehaald. Ook kan

Het mooiste zou zijn als ik op 1 tabblad een keuzemenu heb waarin in kan aangeven welke bladen ik kan selecteren om weer te geven of te verbergen. Daar ben ik echter nog niet in gedoken, is wel wenselijk ...
 
Dat menu is er altijd.
Klik met rechts op een tab en kies dan Zichtbaar maken.

Edit:
Dat schreef je al ;)
 
Laatst bewerkt:
Dat menu is er altijd.
Klik met rechts op een tab en kies dan Zichtbaar maken.

Edit:
Dat schreef je al ;)

Het bestand wordt gebruikt voor een rapportage vorm. Wanneer iemand besluit een tabblad te verbergen is hij er ook voor 99,9% zeker van dit niet meer nodig te hebben. Vandaar dat dit (voor nu) heel goed volstaat.

Mijn dank !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan