• 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.

kleur 2x veranderen met CMD button

Status
Niet open voor verdere reacties.
J

JJDaudey

Gebruiker
Lid geworden
3 jun 2017
Berichten
22
Beste

ik wil graag met een commandknop een tekstkleur aanpassen in 1 cel maar ik wil het weer veranderen naar de vorige kleur (wit) met een klik op dezelfde knop
ik heb de volgende vba code maar weet niet hoe ik het moet aanpassen kan iemand mij hiermee helpen?

Private Sub CommandButton6_Click()

Range("J42").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.ColorIndex = 3
End With


End Sub

met vriendelijke groet
Jan-Jaap
 
Het zou zo kunnen.
misschien kleurnummer aanpassen

Code: 
Sub kleur()
If Range("J42").Font.ColorIndex = 1 Then
Range("J42").Font.ColorIndex = 3
Else
Range("J42").Font.Color = 1
End If
End Sub
 
Of zo:
Code: 
Sub kleur()
    Range("J42").Font.ColorIndex = IIf(Range("J42").Font.ColorIndex = 1, 3, 1)
End Sub
 
beste

het werkt wel maar 1 x
ik heb daar een zin staan die af en toe rood moet worden(hij is nu wit), is het mogelijk dat ik bij de eerste keer klikken, het dan rood word en bij de volgende keer klikken het weer wit word? zodat ik geen 2 cmd buttons moet maken

vr groet
Jan-Jaap
 
Dat is precies wat mijn voorbeeld doet, maar wijzig dan de 1 in een 2:
Code: 
Private Sub CommandButton6_Click()
    Range("J42").Font.ColorIndex = IIf(Range("J42").Font.ColorIndex = 2, 3, 2)
End Sub
 
Dankjewel voor je expertise
de 2e optie werkte wel goed

Met Vriendelijke groet
Jan-Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan