20.03.2017, 13:57
Hallo,
in einer Datei habe ich 3 CommandButtons mit hinterlegtem Code.
Ich speichere das Blatt als xlsx ab und möchte vorher die Buttons löschen.
Hier aus dem Forum habe ich vor längerem diesen Code erhalten, mit dem das damals funktionierte. Wie mir heute aufgefallen ist, geht es nicht mehr und ich weiß nicht, warum.
Die erste MsgBox geht auf, die zweite nicht.
Mit diesem Code funktioniert es, es werden leider aber auch eingefügte Bilder gelöscht:
Wenn ich dann das abgespeicherte Sheet öffne, sind die Buttons noch da und es kommt immer eine Verknüpfungsaktualisierung wegen der Makros, die den Buttons zugewiesen, aber in der xlsx nicht mehr enthalten sind.
Was mache ich falsch?
Wie sehe ich, welcher Button welche Nummer hat?
Wie lösche ich automatisch alle Verknüpfungen?
in einer Datei habe ich 3 CommandButtons mit hinterlegtem Code.
Ich speichere das Blatt als xlsx ab und möchte vorher die Buttons löschen.
Hier aus dem Forum habe ich vor längerem diesen Code erhalten, mit dem das damals funktionierte. Wie mir heute aufgefallen ist, geht es nicht mehr und ich weiß nicht, warum.
Die erste MsgBox geht auf, die zweite nicht.
Code:
MsgBox "CommandButtons löschen!"
For i = 1 To Sheets("Eingabe_ELC").OLEObjects.Count 'Löschen nur CommandButtons
Sheets("Eingabe_ELC").OLEObjects(1).Delete
MsgBox "CommandButtons gelöscht!"
Next
Mit diesem Code funktioniert es, es werden leider aber auch eingefügte Bilder gelöscht:
Code:
Sheets("Eingabe_ELC").Shapes.SelectAll
Selection.Cut 'alle Löschen, auch Bilder
Wenn ich dann das abgespeicherte Sheet öffne, sind die Buttons noch da und es kommt immer eine Verknüpfungsaktualisierung wegen der Makros, die den Buttons zugewiesen, aber in der xlsx nicht mehr enthalten sind.
Was mache ich falsch?
Wie sehe ich, welcher Button welche Nummer hat?
Wie lösche ich automatisch alle Verknüpfungen?