Symbole löschen
Tom
ich aktualisiere meine Tabelle jede Woche mit Hilfe der Kopier-Funktion von unserer Internetseite.
Nun habe ich ein Problem: Dort sind immer Symbole angegeben (Kreise, Punkte, Pfeile), die automatisch mitkopiert werden.
Nun will ich diese anhand eines VBA-Befehls löschen, doch diese Symbole haben natürlcih jedes mal neue Bezeichnungen (Bild 1, Bild 2 ... Bild 350 usw).
Wenn ich nun folgenden Befehl verwende, kommt jedes Mal die Meldung, daß z.B. Picture 1 nicht vorhanden ist --> klar, wurde ja bereits bei der letzten Aktualisierung gelöscht):
Sub Symbol()
ActiveSheet.Shapes("Picture 1:Picture 1000").Select
Selection.Delete
End Sub
wie kann ich nun,z.B. mit Hilfe einer Variablen, erreichen, daß nur die Symbole gelöscht werden, die wirklich vorhanden sind.
Danke vorab für Eure Hilfe.
Tom
Anzeige