fehlenden Step überspringen ?
22.11.2016 12:20:36
Johannes
folgendes Problem: In einer Vorlagedatei wurde ein Bild mit eingefügt. Nun wurde im Zuge der "vielfältigen Variantenrechnungen" das betreffenden Blatt immer und immerwieder kopiert, sodass nun hunderte Male das Bild übereinander im Blatt liegt. Diese Duplikate manuell zu löschen ist irre aufwendig, das Makro hierzu läuft aber nicht durch, weil die Nummer der Bilder nicht fortlaufend sind und es dann mit einer Fehlermeldung abbricht.
Frage: wie kann ich fehlende Nummern ignorieren, bzw wenn die Nummer nicht vorhanden ist einfach überspringen?
Hier mein bisheriger Code:
Sub Bild_weg_alle()
Dim num As Variant
For num = 511 To 1 Step -1
ActiveSheet.Shapes("picture " & num).Select
Selection.Delete
Next num
End Sub
Schon mal vielen Dank für Eure Hilfe
Gruß
Johannes
Anzeige