Ich nutze seit kurzem Office 2017.
Seit dieser Zeit verfolgt mich in einigen Exceltabellen ein kleines dreieckiges Zeichen, dass sich weder durch Löschen /Entfernen der Zeilen oder Spalten löschen läßt.
Wer kann helfen ?
Gruß Kuddel
r.de/bb
Sub DeleteObjectsInSelection()
antwort = MsgBox("Alle Objekte in markiertem Bereich löschen?", vbYesNo + vbQuestion, "Globale _
Funktion")
If antwort = vbYes Then
Dim objShp As Shape
Dim rng As Range
Set rng = Selection
For Each objShp In ActiveSheet.Shapes
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then objShp.Delete
Next
Set rng = Nothing
Else
Cancel = True
End If
End Sub
Option Explicit
Sub Main()
ActiveSheet.DrawingObjects.Delete
End Sub
Servus