wie bekomme ich in angehangener Datei die Diagonalstriche in B2:B5 wieder weg?
Gruß und danke
Chris
https://www.herber.de/bbs/user/95863.xlsx
Sub loeschen()
Dim objShp As Shape
Dim rng As Range
On Error GoTo Infotext
Set rng = Selection
For Each objShp In ActiveSheet.Shapes
If objShp.Visible = False Then GoTo überspr
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then objShp.Delete
überspr:
Next
Set rng = Nothing
GoTo Ende
Infotext:
MsgBox ("Es wurde kein Bereich selektiert!")
Ende:
End Sub
Einfach Bereich in dem die Objekte gelöscht werden sollen markieren und makro starten
Die 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