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

Shapes in Range löschen

Shapes in Range löschen
27.04.2021 09:54:01
Maxe
Hallo,
ich habe ein Ecxelsheet , in welchem ich unter anderem alle Shapes in einer bestimmten Range löschen möchte.
Mein Ursprungscode ist:
Dim sh As Worksheet
Dim shp As Shape
Set sh = ThisWorkbook.Sheets("Übergabeschein")
For Each shp In sh.Shapes
shp.Visible = False
Next
Dieses soll nun nur noch im Range("B:B") gelten, damit alle anderen Shapes außerhalb dieser Range bestehen bleiben.
ich hatte folgendes bisher probiert:
Set sh = ThisWorkbook.Sheets("Übergabeschein").Range("B:B")
Funktionierte nicht.
Was übersehe ich?
Grüße
Maxe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes in Range löschen
27.04.2021 10:06:06
Daniel
Hi

For Each shp In sh.Shapes
If shp.topleftcell.Column = 2 and shp.bottomrightcell.column = 2 then
shp.Visible = False
End if
Next
Ausgeblendet werden die Shapes, die vollständig in Spalte B liegen.
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige