Liebe Spezialisten,
vielleicht hat jemand von Euch eine Idee, wie man eine Zelle auf eine Grafik überprüft. Dieses Filterkriterium wäre wichtig, weil es das einzige Unterscheidungskriterium auf meinen kilometerlangen Seiten darstellt. Hat jemand eine Idee zu dieser Syntax?
Dim Zelle as Range
Dim shp As Shape
For Each Zelle In Selection
Zelle.IndentLevel = 2
For Each shp In ActiveSheet.Shapes
If Zelle.shp.Type = 13 Then !!!Hier klappt es nicht!!
With Range(Zelle.Offset(1, 1), Zelle.Offset(0, 14))
.Interior.ColorIndex = 15
.Font.Bold = True
End With
shp.delete
Else
End If
Next shp
Next Zelle
Vielen Dank im voraus, Grüsse Chriz