Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Shape löschen in einer Mappe von einer anderen Mappe heraus
zurück: Zellinhalt identisch, dann markieren (mit 2. Bedingung) weiter: Daten von eine Liste in die andere Liste Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
maninweb
Microsoft Excel MVP 2014


Verfasst am:
05. Apr 2010, 12:19
Rufname: maninweb
Wohnort: Aachen

Shape löschen in einer Mappe von einer anderen Mappe heraus - Shape löschen in einer Mappe von einer anderen Mappe heraus

Nach oben
       Version: Office 2003

Hallöchen zusammen...

folgende Situation...

- 1 Mappe "Mappe1.xls" ist in Excel geöffnet und Tabelle1 ist mit einem Blattschutz versehen
- 2 Mappe "Mappe2.xls" ist in Excel geöffnet ohne jeglichen Schutz
- 2 Mappe enthält ein Rechteck, zum Beispiel "Testrechteck"

Folgender Code - aufgerufen von Mappe1.xls und nur von dort - schlägt mit einem
Laufzeitfehler 1004 fehl...

Code:

Application.Workbooks("Mappe2.xls").Worksheets("Tabelle1").Shapes("Testrechteck").Delete


Ist die Tabelle1 in Mappe1 nicht geschützt, klappt es ohne Probleme.
Andere Befehle, wie z.B. das Rechteck neu zu positionnieren funktionieren.

Hab' ich einen Denkfehler bzw. weiss einer warum das nicht geht?

Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
05. Apr 2010, 12:36
Rufname:
Wohnort: Im schönen Weserbergland

DrawingObjects - DrawingObjects

Nach oben
       Version: Office 2003

HAllo Mourad

Keine Ahnung warum das mit den Shapes() nicht geht.
Habe aber schon des öfteren die Erfahrung gemacht das die DrawingObjects nicht so rumzicken wie die Shapes-Auflistung.
Sind zwar undokumentiert, dafür aber "pflegeleichter".
So gehts:

Application.Workbooks("Mappe2.xls").Worksheets("Tabelle1").DrawingObjects("Testrechteck").Delete


EDIT:
Über eine ObjectVAriable gehts auch:
Zitat:
Dim sh As Shape
Set sh = Application.Workbooks("Mappe2.xls").Worksheets("Tabelle1").Shapes("Testrechteck")
sh.Delete

ransi

_________________
Let there be light, sound, drums, 'n guitar
Let there be rock
...
And the music was good
maninweb
Microsoft Excel MVP 2014


Verfasst am:
05. Apr 2010, 12:43
Rufname: maninweb
Wohnort: Aachen


AW: Shape löschen in einer Mappe von einer anderen Mappe her - AW: Shape löschen in einer Mappe von einer anderen Mappe her

Nach oben
       Version: Office 2003

Hi ransi...

Vielen Dank; mit den DrawingObjects funktioniert es einwandfrei auch bei mir.

PS1: Da der Code Bestandteil eines Blogartikels sein wird, nehme ich gerne den
Tipp von Dir hier auf und verlinke diesen Beitrag; wenn Du nix dagegen hast.

PS2: Nachtrag; eine Objektvariable ist bei mir im Original schon vorhanden,
das tat's nicht zuverlässig; auch interessanterweise nicht wenn ich eine Kopie
erstelle.

Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Alle Zeichen bis zum Beginn der URL löschen? 2 Moguai123 627 07. Sep 2006, 15:20
ae Alle Zeichen bis zum Beginn der URL löschen?
Keine neuen Beiträge Excel Formeln: Text in einer Zelle hinter Semikolin löschen 3 thomasxy 1015 25. Jul 2006, 11:54
Gast Text in einer Zelle hinter Semikolin löschen
Keine neuen Beiträge Excel Formeln: Leerzeilen löschen 6 ggaribaldi 14935 25. Apr 2006, 15:45
ggaribaldi Leerzeilen löschen
Keine neuen Beiträge Excel Formeln: Doppelte Einträge löschen 2 Gast 1157 25. Apr 2006, 10:23
Gast Doppelte Einträge löschen
Keine neuen Beiträge Excel Formeln: Office 2000 - Zellen per Eingabe Löschen 3 pharlap 956 14. Feb 2006, 11:03
ae Office 2000 - Zellen per Eingabe Löschen
Keine neuen Beiträge Excel Formeln: Zeilen automatisch löschen wenn sie leer sind 1 Gast 3101 30. Dez 2005, 13:34
Hübi Zeilen automatisch löschen wenn sie leer sind
Keine neuen Beiträge Excel Formeln: Eingaben löschen durch Befehlsschaltfläche 4 FBSmarty 1959 04. Nov 2005, 19:23
FBSmarty Eingaben löschen durch Befehlsschaltfläche
Keine neuen Beiträge Excel Formeln: Zellinhalte mit zentralem Schalter löschen 8 Moselaner 1027 08. Sep 2005, 08:06
Moselaner Zellinhalte mit zentralem Schalter löschen
Keine neuen Beiträge Excel Formeln: Bei dreifachen Werten Zeilen löschen 14 Kosich 823 01. Sep 2005, 14:23
Kosich Bei dreifachen Werten Zeilen löschen
Keine neuen Beiträge Excel Formeln: Löschen von Wörtern in einem Satz 3 MartinJungwirth 795 13. Jul 2005, 15:51
MartinJungwirth Löschen von Wörtern in einem Satz
Keine neuen Beiträge Excel Formeln: Leere Zeilen vom Kombinationsfeld löschen 5 sifak 1332 19. Apr 2005, 17:11
Hübi Leere Zeilen vom Kombinationsfeld löschen
Keine neuen Beiträge Excel Formeln: Gibt es eine Formel mit der man Zeilen löschen kann? 5 kara ben nemsi 1956 15. Apr 2005, 10:19
Kuwe Gibt es eine Formel mit der man Zeilen löschen kann?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps