Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shapes in activer Zelle löschen

Forumthread: Shapes in activer Zelle löschen

Shapes in activer Zelle löschen
03.10.2006 08:58:19
Gregor
Hallo Excel-Profis
Nachdem ich nun 2 Stunden im Archiv nach einer passenden Lösung erfolglos gesucht habe, bitte ich nun Euch um euren Rat.
Folgender Code löscht alle Shapes des aktiven Blattes.
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type = 8 Then sh.Delete
Next
ActiveSheet.Protect
Ich möchte nun einen Bereich festlegen (z.B. "e1:I3"), der nur die Shapes, welche in diesem Bereich liegen, löscht? Geht das nicht?
Danke für deinen Imput!
Grüsse
Gregor
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes in activer Zelle löschen
03.10.2006 09:38:15
Rolf
Hallo Gregor,
die Shape-Adresse kannst du feststellen mit
sh.TopLeftCell.Address
fG
Rolf
Uups - nicht aktualisiert...oT
03.10.2006 09:44:16
{Boris}
AW: Shapes in activer Zelle löschen
03.10.2006 09:43:46
{Boris}
Hi Gregor,
Option Explicit

Sub til()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Intersect(Range("E1:I3"), Sh.TopLeftCell) Is Nothing Then Sh.Delete
Next Sh
End Sub

Grüeß Boris
Anzeige
AW: Shapes in activer Zelle löschen
03.10.2006 10:43:47
Gregor
Hallo Boris, Hallo Ralf
Merci. Genau das suchte ich. Vielen Dank!
Grüsse
Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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