Suchergebnisse

Hallo Zusammen, ich bitte um Euren support. Mit folgendem Programm prüfe ich auf doppelte Werte innerhalb einer Spalte. Das funktioniert auch soweit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If WorksheetFunction.CountIf(Columns(Target.Column), Target.Value) > 1 Then Target.Interior. _Color = vbYellow End Sub Allerdings bleibt die farbige Markierung bestehen auch wenn ich entsprechende Zelle leere. Das ist so leider nicht gewünscht. Weiterhin möchte ich…

Hi C.O.D.E. vielen Dank für deine schnelle Rückmeldung. Deinen Ansatz einfach zurück auf weiß zu wechseln habe ich auch schon in Erwägung gezogen aber das erfordert ja eine aktive Handlung zum Beispiel durch ein Schaltfläche, oder????? Hast du hier eventuell eine elegantere Lösung? Weiterhin kannst du mir ggf. noch mit meiner zweiten Frage weiterhelfen. Die Spalten A und B sollen nicht auf doppelte Werte geprüft werden. Was muss ich am Code ändern. Nochmal viel besten Dank

Hallo, vielen Dank für die Rückmeldung. Leider kann ich die "Bedingte Formatierung" nicht verwenden. Das file ist ziemlich Groß und die performance leidet massiv. Ich habe jetzt zwischenzeitlich das Problem mit C.O.D.E.'s vorschalg gelöst. Allerdings fehlt mir noch immer eine Lösung wie ich vermeiden kann, dass Spalte A und B nicht einbezogen werden.