title image


Smiley Re: Gehe zu, Objekte, aber nur aktuell markierter Bereich
Da du dich noch nicht so gut in VBA auskennst, hab ich den Code knapp

kommentiert:



''Um Shapes zu löschen, ist es nicht nötig, diese zu markieren o.ä.

''Es wird geprüft, ob sich die obere linke Zelle der Shapes im definierten

''Zellbereich befindet. Falls ja, wird das Shape gelöscht und falls nicht...

Option Explicit

Sub Shapes_löschen()

Dim Sh As Shape

For Each Sh In ActiveSheet.Shapes

If Not Intersect(Sh.TopLeftCell, [a116:F163]) Is Nothing Then Sh.Delete

Next

End Sub







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: