Clever-Excel-Forum

Hallo,

ich bin jetzt schon seid einigen Stunden in diversen Foren nach einer Lösung am suchen, doch leider ohne Erfolg.

Folgende Situation:

Ich habe in Spalte A diverse Zahlen stehen (Beispiel im Attachement zu sehen). Nun möchte ich via Bedingte Formatierung die die Doppelten Werte farblich markieren (ColorIndex = 6) (Gelb).
Als nächstes hätte ich gerne via VBA, dass die farblich Markierten Zellen allesamt gelöscht werden, sprich nicht nur einen der doppelten Werte, sondern "beide". Ein nachrücken der Spalten ist nicht notwendig, wäre aber schön wenn mir jemand erklären würde wie das funktionieren würde.

Mein Lösungsvorschlag, der letztendlich gescheitert ist:

Sub ClearYellowCells()
    Dim rng As Range
    For Each rng In ActiveSheet.UsedRange
        If rng.Interior.ColorIndex = 6 Then
            rng.ClearContents
            End If
        Next rng
    End Sub

Hier das Problem:

nur manuell gefärbte Zellen werden gelöscht und nicht die farblich markierten Zellen durch die bedingte Formatierung.

Ich hoffe ich konnte mein "Problem" verständlich erläutern.

Danke und Gruß,
Timi

Hi Tim,

Frage:
a) Welche Bedingung führt dazu, die Zelle zu färben?

Diese Bedingung kannst Du dann in der Schleife verwenden um zu löschen.

Alternative:
Schau dir mal .AutoFilter an.

Hallo, :19:

mit "ClearContents" wird nur der Inhalt der Zelle gelöscht - mit "Clear" die ganze Zelle. :21:

Code:
Option Explicit

Public Sub Main()

    Dim rng As Range

    For Each rng In ActiveSheet.UsedRange

        If rng.DisplayFormat.Interior.ColorIndex = 6 Then

            rng.ClearContents

        End If

    Next rng

End Sub

Public Sub Main_1()

    Dim rng As Range

    For Each rng In ActiveSheet.UsedRange

        If rng.DisplayFormat.Interior.ColorIndex = 6 Then

            rng.Clear

        End If

    Next rng

End Sub

Das Zauberwort ist "DisplayFormat". Suche mal im Netz danach. :21:

Super, vielen Dank!

Das geht ja einfacher als gedacht :)

Timi

Mase

Case

Timi