Makroproblem

29/11/2011 - 16:54 von puck | Report spam
Hi!

Hier laeuft unter Excel2003 ein Makro zur vollen Zufriedenheit, das
angezeigte Bilder löscht. Das Makro:

Dim shp1 As Shape
For Each shp1 In ActiveSheet.Shapes
If shp1.Name <> "Bild 1" And shp1.Type = msoPicture Then
If shp1.Name <> "Bild 2" And shp1.Type = msoPicture Then
shp1.Delete
End If
End If
Next shp1


Unter Excel2010 passiert bei Ausführung des Makros allerdings nichts. Kann
mir jemeand einen Tipp geben, wo der Fehler liegt?

MfG
GvB
 

Lesen sie die antworten

#1 Marc Wollersheim
01/12/2011 - 19:52 | Warnen spam
Am 29.11.2011 16:54, schrieb Gebhard von Busse:
Hi!

Hier laeuft unter Excel2003 ein Makro zur vollen Zufriedenheit, das
angezeigte Bilder löscht. Das Makro:

Dim shp1 As Shape
For Each shp1 In ActiveSheet.Shapes
If shp1.Name<> "Bild 1" And shp1.Type = msoPicture Then
If shp1.Name<> "Bild 2" And shp1.Type = msoPicture Then
shp1.Delete
End If
End If
Next shp1


Unter Excel2010 passiert bei Ausführung des Makros allerdings nichts. Kann
mir jemeand einen Tipp geben, wo der Fehler liegt?

MfG
GvB



Hallo GvB,

i) hast Du schonmal in VBA unter Verweise geguckt, ob alle gleich sind?
ii)Startest Du das Makro wirklich aus dem Sheet, in dem die Bilder
gelöscht werden sollen?
Wenn nicht würde ich das zu benutzende Sheet konrektisieren:
Dim shp1 As Shape


Dim wks as Worksheet
Set wks = Worksheets("TabelleXY") ' hier richtigen Tabellennamen..
For Each shp1 In wks.Shapes
If shp1.Name<> "Bild 1" And shp1.Type = msoPicture Then
If shp1.Name<> "Bild 2" And shp1.Type = msoPicture Then
shp1.Delete
End If
End If
Next shp1




Gruß
Marc

Ähnliche fragen