Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige