Problem mit Schaltfläche löschen 2013

Sub Test() ActiveSheet.Shapes("Schaltfläche 94").Delete ActiveSheet.Shapes("Schaltfläche 75").Delete ActiveSheet.Shapes("Schaltfläche 76").Delete ActiveSheet.Shapes("Schaltfläche 102").Delete ActiveSheet.Shapes("Schaltfläche 104").Delete ActiveWorkbook.SaveAs "O:\Hugo 2020\Archiv\Offerten\" & Range("D11").Value & ".xlsm" ActiveWorkbook.Close SaveChanges:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Guten Abend Piet Ganz wenig hat es geholfen, so ist zumindest der Code von der Schaltfläche und es kann niemand _ mehr das Makro ausführen. Trotzdem stürzt 2013 beim löschen der Schaltfläche ab Vielen Dank ActiveSheet.Shapes("Schaltfläche 94").Delete ActiveSheet.Shapes("Schaltfläche 75").Delete ActiveSheet.Shapes("Schaltfläche 102").Delete ActiveSheet.Shapes("Schaltfläche 104").Delete ActiveSheet.Shapes("Schaltfläche 76").OnAction = "" 'ActiveSheet.Shapes("Schaltfläche 76").Delete ActiveWorkbook.SaveAs "O:\Hugo 2020\Archiv\Offerten\" & Range("D11").Value & ".xlsm" ActiveWorkbook.Close SaveChanges:=True End Sub

Hallo Benedikt,
zunaechst freut es mich das mein Vorschlag gehofen hat.
Ich bin aber auch ein sehr -zaeher alter- Knuffelbruder.
Wir sollten mal sehen ob wir Excel austricksen können!
Nur zum Spass, bitte nicht fragen warum es funktioniert!
Lösche bitte mal mit dem alten Excel 97 Objekt Befehl:
ActiveSheet.DrawingObjects("Schaltfläche 76").Delete
Sollte es nicht klappen kannst du das Objekt unsichbar machen!
ActiveSheet.Shapes("Schaltfläche 76").Visible = False
Du solltest bitte vorher einmal testen ob man den Button mit Select ansprechen kann.
Ist das nicht möglich kann es sein das er mit etwas anderem als Gruppe verbunden ist.
Das passiert z.B. wenn ein Button versehentlich 2x kopiert wird und direkt übereinander liegt.
Rein optisch kannst du das nicht erkennen, nur mit einem VBA Makro auspüren.
Mit dem 2. Makro kannst du mal prüfen ob es bei "76" eine Fehlermeldung gibt?
Wenn Excel nervt, bin ich Piet, und der kann boshaft nach Fehlern suchen!
mfg Piet

Sub Test()
ActiveSheet.DrawingObjects("Schaltfläche 76").Select
End Sub

Sub Button_Prüfen()
MsgBox ActiveSheet.Shapes.Count
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
obj = Empty:  Txt = Empty
obj = ActiveSheet.Shapes(i).Name
Txt = ActiveSheet.Shapes(i).Caption
MsgBox obj & "  " & Txt
If Err > 0 Then MsgBox i & "  " & obj & "  Error: " & Error()
Next i
End Sub

Guten Morgen Piet
Vielen herzlichen Dank für deine Bemühungen. Scheinbar bist wirklich Ausdauernd.
Also nachdem bei Luschi der Code auf 2013 und 2016 durchgelaufen ist, habe ich mal die Schnellreparatur und die Onlinereparatur durchgeführt. Leider immer noch das selbe, Absturz.
Heute Morgen habe ich auf vier Stationen getestet. Tatsächlich läuft bei einem PC der Code durch, die anderen drei Maschinen haben den Dienst quittiert.
- Sub Test mit select findet die Schaltfläche
- ActiveSheet.DrawingObjects("Schaltfläche 76").Delete hat es leider auch nicht gebracht.
- Button prüfen (Supersache) Alle Buttons erkannt, bei jedem Error: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Ich werde heute Abend weitermachen und noch den Versuch mit visible machen.

Beliebteste Forumthreads (12 Monate)

Problem mit Schaltfläche löschen 2013

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread