Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1228to1232
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
Inhaltsverzeichnis

OvaleShapes ClearContents

OvaleShapes ClearContents
Heinz
Hallo Leute
Ich möchte in Range.("L7:P34") ovale Shapes löschen.
Komme leider nicht wirklich zum Ziel.
Könnte mir bitte jemand weiterhelfen ?
Gruß
Heinz

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

Betreff
Benutzer
Anzeige
AW: OvaleShapes ClearContents
04.09.2011 16:36:51
robert
Hi,
teste mal das, Code von Ransi-aus dem Archiv-angepasst.
Gruß
robert

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

AW: OvaleShapes ClearContents
04.09.2011 16:40:49
Beverly
Hi Heinz,

Sub Loeschen()
Dim shaOval As Shape
For Each shaOval In ActiveSheet.Shapes
If shaOval.AutoShapeType = msoShapeOval And shaOval.TopLeftCell.Column > 11 And _
shaOval.TopLeftCell.Column  6 And _
shaOval.TopLeftCell.Row 



Anzeige
AW: Danke an Karin & Robert
04.09.2011 17:11:05
Heinz
Danke Karin & Robert
Beide Varianten funktionieren wie gewollt.
Ihr zwei wäret ein Super Pärchen.
Danke & Gruß
Heinz
OK, aber bin schwer verheiratet ;-)) owT
04.09.2011 17:15:21
robert
Bin auch schon anderweitig vergeben ;-)) - o.T.
04.09.2011 18:46:12
Beverly


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige