HERBERS Excel-Forum - das Archiv
Fehler löschen von Buttons
Buttons

Hallo Zusammen,
ich möchten gern per Code alle Buttons einer Mappe löschen.
In der Mappe sind alle Blätter ausgeblendet und wenn ich dann folgende Code aufrufe, so erscheint der Fehler Anwendung- oder objektorientierter Fehler.
Blende ich alle Blätter ein und aktiviere jedes Blatt per Select funktioniert es.
Dim wks As Worksheet
For i = 1 To VJ_TB.Sheets.Count
Set wks = VJ_TB.Sheets(i)
For Each sh In wks.Shapes
sh.Delete
Next sh
Next i
Was kann ich tun, um alle Buttons zu löschen ohne ein Blatt anzuzeigen?
Danke Euch schon mal.
Steffen Schmerler

AW: Fehler löschen von Buttons
Buttons

Hallo
Zitat
In der Mappe sind alle Blätter ausgeblendet und wenn ich dann folgende Code aufrufe, so erscheint der Fehler Anwendung- oder objektorientierter Fehler.
Sicher?
M.E geht das nicht. Mind. 1 Blatt muss sichtbar sein.
Was ist VJ_TB ?
Mit der Schleife löschst Du alle Shapes nicht nur Button.
Warum ist SH nicht deklariert?

Dim SH As Shape, x&
For x = 1 To Worksheets.Count
For Each SH In Worksheets(x).Shapes
SH.Delete
Next SH
Next
Gruß Matthias

AW: Fehler löschen von Buttons
Buttons

Hallo,
Du hast recht ein Blatt ist sichtbar, aber da sind keine Buttons drin.
VJ_TB ist als Workbook definiert
sh ist als Shape definuert
Leider klappt es nicht.
Vielleicht habt ihr noch eine Idee.
Danke Euch
VG
Steffen Schmerler

funktioniert doch ...
Matthias

Hallo
Was heißt leider klappt es nicht?
Hast Du meinen Code probiert?
Hier klappts doch auch (Tabelle2 ist ausgeblendet)
https://www.herber.de/bbs/user/99380.xls
Gruß Matthias

Blattschutz gesetzt ? owT
Matthias

Bei mir erscheint der Fehler...
SteffenS

Hallo,
bei mir erscheint der Fehler auch bei der beigefügten Mappe in Zeile
For Each SH In Worksheets(x).Shapes
Komisch ist, dass es unter Excel 2010 geht. Unter 2003 leider nicht.
MfG
Steffen Schmerler

dann kann ich Dir nicht weiter helfen
Matthias

Hallo
Die Datei habe ich mit XL2000 erstellt und mit XL2000 und XL2007 getestet
Warum das bei Dir nicht funktioniert kann ich nicht beurteilen.
Mehr kann ich nicht für Dich tun.
Evtl. kann das jemand mit XL2003 testen. Ich lass mal offen.
Oder Du lädst Deine Datei hier hoch, dann kann man schauen was da nicht stimmt.
Gruß Matthias

Fehler löschen von Buttons
Buttons

Hallo Zusammen,
ich möchten gern per Code alle Buttons einer Mappe löschen.
In der Mappe sind alle Blätter ausgeblendet und wenn ich dann folgende Code aufrufe, so erscheint der Fehler Anwendung- oder objektorientierter Fehler.
Blende ich alle Blätter ein und aktiviere jedes Blatt per Select funktioniert es.
Dim wks As Worksheet
For i = 1 To VJ_TB.Sheets.Count
Set wks = VJ_TB.Sheets(i)
For Each sh In wks.Shapes
sh.Delete
Next sh
Next i
Was kann ich tun, um alle Buttons zu löschen ohne ein Blatt anzuzeigen?
Danke Euch schon mal.
Steffen Schmerler

AW: Fehler löschen von Buttons
Buttons

Hallo
Zitat
In der Mappe sind alle Blätter ausgeblendet und wenn ich dann folgende Code aufrufe, so erscheint der Fehler Anwendung- oder objektorientierter Fehler.
Sicher?
M.E geht das nicht. Mind. 1 Blatt muss sichtbar sein.
Was ist VJ_TB ?
Mit der Schleife löschst Du alle Shapes nicht nur Button.
Warum ist SH nicht deklariert?

Dim SH As Shape, x&
For x = 1 To Worksheets.Count
For Each SH In Worksheets(x).Shapes
SH.Delete
Next SH
Next
Gruß Matthias

AW: Fehler löschen von Buttons
Buttons

Hallo,
Du hast recht ein Blatt ist sichtbar, aber da sind keine Buttons drin.
VJ_TB ist als Workbook definiert
sh ist als Shape definuert
Leider klappt es nicht.
Vielleicht habt ihr noch eine Idee.
Danke Euch
VG
Steffen Schmerler

funktioniert doch ...
Matthias

Hallo
Was heißt leider klappt es nicht?
Hast Du meinen Code probiert?
Hier klappts doch auch (Tabelle2 ist ausgeblendet)
https://www.herber.de/bbs/user/99380.xls
Gruß Matthias

Blattschutz gesetzt ? owT
Matthias

Bei mir erscheint der Fehler...
SteffenS

Hallo,
bei mir erscheint der Fehler auch bei der beigefügten Mappe in Zeile
For Each SH In Worksheets(x).Shapes
Komisch ist, dass es unter Excel 2010 geht. Unter 2003 leider nicht.
MfG
Steffen Schmerler

dann kann ich Dir nicht weiter helfen
Matthias

Hallo
Die Datei habe ich mit XL2000 erstellt und mit XL2000 und XL2007 getestet
Warum das bei Dir nicht funktioniert kann ich nicht beurteilen.
Mehr kann ich nicht für Dich tun.
Evtl. kann das jemand mit XL2003 testen. Ich lass mal offen.
Oder Du lädst Deine Datei hier hoch, dann kann man schauen was da nicht stimmt.
Gruß Matthias

Bewerten Sie hier bitte das Excel-Portal