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
ServusDie 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