ICh habe ein Problem mit einem Makro von mir.
Ich möchte gern dass in dem Makro alle Buttons abgefragt werden und die die sich in der entsprechenden Spalte befinden gelöscht werden.
Ich habe das bisher so realisiert:
For Each ButtonShape In Sheet.Shapes
If ButtonShape.TopLeftCell.Column = IntCol Then ButtonShape.Delete
Next
Das ganze funktioniert auch manchmal.
Aber manchmal bekomme ich den Laufzeitfehler 1004.
Der Debugger markiert mir dann die If-Anweisung gelb. IntCol besitzt aber den richtigen Wert und in der Excel ist eigentlich auch der Button in dieser Spalte gelöscht. Nur macht er mein Makro nicht weiter. Und ich weiß nicht warum.
Das letzte mal habe ich eine eigentlich unrelevanten Zellwert in einer entsprechenden Spalte geändert und dann kam diese Fehlermeldung.
Vielleicht sieht ja schon jemand einen Fehler.
Ansonsten poste ich mein ganzes Makro nochmal.
zur Erklärung:
Dim ButtonShape As Shape
Dim Sheet As Worksheet
Dim IntCol As Integer
Ich hatte spontan die Idee dass Excel nach dem löschen noch nicht realisiert, dass Der Button schon gelöscht ist und dann natürlich das Problem hat dass man einen gelöschten button nicht nochmal löschen kann.