tekstkleur aanpassen

[Vandelx10]

Goedemiddag,

heeft iemand een idee hoe je met behulp van een wisselknop de tekstkleur op een sheet kan aanpassen van zwart naar wit en omgekeerd?
Alvast bedankt

 

[OctaFish]

Neem eens een macro op die de handeling uitvoert, en gebruik de code om er een 'wisseltruc' van te maken. Met een IF kom je een heel eind. In dummytaal: Als de kleur Zwart is, dan Wit, anders Zwart.

 

[OctaFish]

Dat ziet er dan zo uit:

Sub mcrKleurSwitchen()
    With ActiveSheet.Cells.Font
        If .Color = vbBlack Then
            .Color = vbWhite
        Else
            .Color = vbBlack
        End If
    End With
End Sub

 

[cow18]

iets korter

Sub mcrKleurSwitchen()
    With ActiveSheet.Cells.Font
      .Color = IIf(.Color = vbBlack, vbWhite, vbBlack)
    End With
End Sub

 

[edmoor]

Of voor de Wisselknop:

Private Sub ToggleButton1_Click()
    ActiveSheet.Cells.Font.Color = IIf(ToggleButton1, vbWhite, vbBlack)
End Sub

 

[HSV]

Activesheet. mag je ook weglaten.

 

[Vandelx10]

Hartstikke bedankt alle voor jullie hulp!! :thumb: