VBA doppelte Einträge
Ralf
ich habe folgendes Problem, wo ich einfach keine Lösung finde:
In dem Bereich BJ5 bis BJ46 sollen alle doppelten Einträge per VBA durch einen roten Hintergrund hervorgehoben werden, so wie es mit der bedingten Formatierung auch möglich wäre.
Ich habe dazu folgendes Makro geschrieben:
Sub Bedingte()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.FormatConditions.Delete
Zelle.FormatConditions.Add Type:=xlExpression, Formula1:="=ZÄHLENWENN($BJ$5:$BJ$46;BJ5)>1"
Zelle.FormatConditions(1).Interior.ColorIndex = 3
Next Zelle
End Sub
Ich bekommen leider immer eine Fehlermeldung: 'Laufzeitfehler 1004 - Anwendungs- oder objektdefinieter Fehler' und die kursiven Zeilen werden vom Debugger markiert.
Habe leider im Web nichts finden können. Hat jemand vielleicht einen Idee oder besser noch einen Lösungsansatz oder -vorschlag.
Vielen Dank.
Ralf
