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