Hallo zusammen,
ich habe das Problem, dass ich die Zellen mit dem Farbcode 36 leeren möchte. Der unten stehende Code tut dies auch. Nun möchte ich, dass der Bereich hierfür noch eingegrenzt wird, unzwar in Range("C1:C2500, BG1:BG2500"). Leider übersieht er den Bereich und lösch komplett alles. Er Berücksichtigt alle Spalten. Kann mir jemand weiterhefen?
Sub test()
Dim rng As Range
Set rng = ActiveSheet.Range("C1:C2500, BG1:BG2500")
For Each rng In ActiveSheet.UsedRange
If rng.Interior.ColorIndex = 36 Then
rng.ClearContents
End If
Next rng
End Sub
|