Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild/Grafik in versch. Blättern löschen

Forumthread: Bild/Grafik in versch. Blättern löschen

Bild/Grafik in versch. Blättern löschen
11.10.2022 09:26:53
Michael
Guten Morgen Zusammen,
ich möchte aus allen Blättern (ca. 150 Stk.) in Zelle H44 den kompletten Inhalt (Grafik 53/Gerader Verbinder 54) löschen.
Danke für Eure Unterstützung vorab.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:23:29
volti
Hallo Michael,
hier ein möglicher Ansatz...
Code:


Sub Test()
  Dim oObj As Object, WSh As Worksheet

  For Each WSh In ThisWorkbook.Worksheets
     For Each oObj In WSh.Shapes
        With WSh.Range("H44")
            If oObj.Top >= .Top And oObj.Top < (.Top + .Height) And _
               oObj.Left >= .Left And oObj.Left < (.Left + .Width) Then
               oObj.Delete
            End If
        End With
     Next oObj
  Next WSh
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:52:41
Michael
Super, vielen Dank für Eure Unterstützung, hat beides super funktioniert.
Wünsche Euch noch einen schönen Tag.
VG Michael
AW: Bitte sehr & danke für die Rückmeldung! owt
11.10.2022 11:03:58
Herbert_Grom
,,,
AW: Bild/Grafik in versch. Blättern löschen
11.10.2022 10:36:08
Herbert_Grom
Hallo Michael,
probiers mal damit:

Option Explicit
Sub GrafikenLoeschen()
Dim lWksCount&
For lWksCount = 1 To Sheets.Count
With Sheets(lWksCount)
.Shapes.Range(Array("Grafik 53")).Delete
.Shapes.Range(Array("Gerader Verbinder 54")).Delete
End With
Next lWksCount
End Sub
Servus
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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