Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige