Spalte mit range nach füllfarbe durchsuchen
13.09.2018 14:21:44
aelli
ich habe folgendes Sub in meinem Code. Dieses wird aufgerufen wenn man eine Zelle in einer Art Kalender anklickt. Jeder Mitarbeiter hat eine eigene Farbe. Wenn nun in verschiedenen Zeilen aber der gleichen Spalte die selbe Farbe vorkommen sollte, soll eine MsgBox erscheinen. Hier der Code den ich bisher habe. Ich habe keine Idee mehr warum es so nicht funktioniert...
Private Sub CollisionWarning()
Dim currentColor As Long
currentColor = ActiveCell.Interior.color
For Each rngCellFive In Range("L:L")
If rngCellFive.Interior.color = currentColor And rngCellFive ActiveCell Then
MsgBox "Der Mitarbeiter ist zu diesem Zeitpunkt bereits besch?ftigt"
End If
Next
End Sub
Gruß Aelli