wenn in Zelle kein bestimmtes Wort, Farbe ändern
21.08.2018 15:32:29
Martin
ich möchte beim Klicken des Button 2019, dass in alle Zellen, in denen nicht 2019 enthalten ist, sich die Schriftfarbe der Hintergrundfarbe der Zelle anpasst.
Bisher habe ich das mit folgendem Code gelöst:
Private Sub CommandButton1_Click()
Dim Zelle As Range
For Each Zelle In Range("A6:E15")
If Zelle "2019" Then
Zelle.Font.Color = Zelle.Interior.Color
End If
Next Zelle
End Sub
Private Sub CommandButton2_Click()
Dim Zelle As Range
For Each Zelle In Range("A6:E15")
Zelle.Font.Color = 1
Next Zelle
End Sub
Die Beispieldatei ist angehängt.
https://www.herber.de/bbs/user/123465.xlsm