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