21.10.2018, 16:40
Hallo zusammen,
ich musste leider gerade feststellen, dass bei Zellfärbung o.ä. die Bedingte formatierung die VBA färbung überstimmt.
In meinem Kalender werden per Bedinte formatierung Wochenendtage, Feiertage etc. gesondert eingefärbt.
Gleichzeitig habe ich aber auch eine VBA aktiv die Zellen einfärbt wenn ein Kommentar eingefügt wird.
Nun habe ich aber bemerkt das in Zellen die durch eine Bedingte formtierung gefärbt sind und dann ein Kommentar eingefügt wird die Zelle nicht die VBA färbung umsetzt. Ist es möglich wie auch bei Bedingten formatierungen untereinander die Reihenfolge zwischen VBA und Bedingte formatierung zu bestimmen?
Eine Zelle soll an Wochenendtagen Gelb sein aber trotzdem Rot wenn ein Kommentar eingefügt wird.
Hier der VBA Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
For Each zelle In ActiveSheet.Range("Color")
If Not zelle.Comment Is Nothing Then
zelle.Interior.ColorIndex = 38
Else
zelle.Interior.ColorIndex = xlNone
End If
Next
End Sub
Ich habe leider absolut keine Idee.
Vielen Dank
Tyler
ich musste leider gerade feststellen, dass bei Zellfärbung o.ä. die Bedingte formatierung die VBA färbung überstimmt.
In meinem Kalender werden per Bedinte formatierung Wochenendtage, Feiertage etc. gesondert eingefärbt.
Gleichzeitig habe ich aber auch eine VBA aktiv die Zellen einfärbt wenn ein Kommentar eingefügt wird.
Nun habe ich aber bemerkt das in Zellen die durch eine Bedingte formtierung gefärbt sind und dann ein Kommentar eingefügt wird die Zelle nicht die VBA färbung umsetzt. Ist es möglich wie auch bei Bedingten formatierungen untereinander die Reihenfolge zwischen VBA und Bedingte formatierung zu bestimmen?
Eine Zelle soll an Wochenendtagen Gelb sein aber trotzdem Rot wenn ein Kommentar eingefügt wird.
Hier der VBA Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
For Each zelle In ActiveSheet.Range("Color")
If Not zelle.Comment Is Nothing Then
zelle.Interior.ColorIndex = 38
Else
zelle.Interior.ColorIndex = xlNone
End If
Next
End Sub
Ich habe leider absolut keine Idee.
Vielen Dank
Tyler