ich lösche mittels VBA Code den Zelleninhalt in den grün markierten Bereichen. Jetzt würde ich gerne noch den Zelleninhalt in den gelb markierten Bereichen löschen weiß aber nicht wie ich das anstellen soll. Kann mir da bitte jemand weiterhelfen? Ich habe schon versucht den Code anzupassen leider wurde dabei immer die Zelle unter dem gelb markierten Bereich mit gelöscht.
Mein Code sieht aktuell so aus:
Public Sub Clean_Dashboard()
Dim b As Range
Dim rngCell As Range
Set b = Intersect(Sheets("Tabelle1").Range("13:51,60:137,146:196"), Sheets("Tabelle1"). _
Range("J:L,O:Q,T:V,Y:AC"))
b.ClearContents
Union(b, b.Offset(, 1)).Interior.Pattern = xlNone
For Each rngCell In Sheets("Tabelle1").Range("M13:M51, R13:R51, W13:W51, AB13:AB51, M60: _
M137, R60:R137, W60:W137, AB60:AB137, M146:M196, R146:R196, W146:W196, AB146:AB196")
rngCell.Interior.Color = RGB(242, 242, 242)
Next rngCell
End Sub