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.RolaDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen