Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Autoformen in bestimmten Bereich löschen

Alle Autoformen in bestimmten Bereich löschen
22.05.2005 11:38:36
Thomas
Hallo!
Folgendes Problem: Ich möchte innerhalb eines bestimmten Bereichs alle Autoformen löschen.
Mit diesem Code aus dem Forum kann ich zwar alles auf der Seite löschen:
While ActiveSheet.Shapes.Count &gt 0
ActiveSheet.Shapes(1).Delete
Wend
Hilft mir aber nicht richtig weiter. Ich brauche hier eine Beschränkung auf:
Range("A38:K70").Activate
Hat hierzu jemand eine Idee?
Vielen Dank im Voraus
Thomas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Autoformen in bestimmten Bereich löschen
22.05.2005 11:59:14
ransi
guten morgen thomas
hilft dir das hier weiter?
Public

Sub weg()
Dim bereich As Range
Dim bild As Shape
Set bereich = Range("A38:K70")
For Each bild In Shapes
If Not Intersect(Range(bild.TopLeftCell.Address), bereich) Is Nothing Then _
bild.Delete
Next
End Sub

ransi
Anzeige
AW: Alle Autoformen in bestimmten Bereich löschen
22.05.2005 12:59:52
NE
Hi auch,
oder evtl. auch so, wenn sie wirklich nur innerhalb liegen dürfen:

Sub y()
Dim c As Range, sh As Shape
Set c = Range("A38:K70")
For Each sh In ActiveSheet.Shapes
If sh.Top > c.Top And sh.Height < c.Height Then
If sh.Left > c.Left And sh.Width < c.Width Then
sh.Delete
End If
End If
Next
End Sub

hth, Nancy
Anzeige
AW: Alle Autoformen in bestimmten Bereich löschen
22.05.2005 13:01:14
Thomas
Hallo ransi,
vielen Dank für deine Bemühung, allerdings bekomme ich bei dem Code
For Each bild In Shapes
einen Laufzeitfehler '424' und den Hinweis 'Objekt erforderlich'.
Noch eine Idee?
Thomas
AW: Alle Autoformen in bestimmten Bereich löschen
22.05.2005 13:13:08
Thomas
Hallo ransi, hallo Nancy,
vielen Dank für Eure Arbeit, mit Nancys Code werden alle Autoformen in einem bestimmten Bereich gelöscht.
Wünsche Euch noch einen schönen Sonntag
Thomas
Anzeige
kleiner Nachtrag
22.05.2005 13:28:41
NE
Hi Thomas,
wenn Du in ransi's Code die Zeile:
for each bild in shapes
durch:
for each bild in activesheet.shapes
ersetzt, sollte auch der laufen.
Beide machen allerdings was anderes, ransi's löscht alle Shapes,
deren Boundingbox den Bereich tangieren, meiner nur wenn die Box
komplett innerhalb liegt. Such's Dir raus;-)
Gruss Nancy
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige