gibt es eine Möglichkeit, das wenn eine Grafik (zum Beispiel ein Kreis oder Quadrat) in der Tabelle vorhanden ist, das ich dann all die Zellen die verdeckt werden mit schwarz fülle?
Sub versiv()
Dim Sh As Shape, TLC As String, BRC As String
Set Sh = ActiveSheet.Shapes("Oval 1")
TLC = Sh.TopLeftCell.Address
BRC = Sh.BottomRightCell.Address
Range(TLC & ":" & BRC).Interior.ColorIndex = 1
End Sub
Gruß K.Rola