Buttons in einer Tabelle ansprechen und löschen

Hallo ihr Profis.
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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub ButtonsLoeschen() Dim ButtonShape As Shape Dim Sheet As Worksheet Dim IntCol As Integer On Error GoTo Fehler 'Setzen von Testwerten Set Sheet = Worksheets(1) IntCol = 3 'Löschprozedur For Each ButtonShape In Sheet.Shapes If ButtonShape.TopLeftCell.Column = IntCol Then ButtonShape.Delete Next 'Fehlerbehandlung am Ende der Prozedur Fehler: With Err Select Case .Number Case 0 'ales OK Case 1004 ' If Not ButtonShape Is Nothing Then With ButtonShape MsgBox "Shape-Name: " & .Name & vbLf _ & "Tabellen: " & Sheet.Name & vbLf _ & "Sichtbar: " & IIf(.Visible, "ja", "nein"), _ vbInformation + vbOKOnly, "Fehler - Löschen Buttons" End With End If Resume Next Case Else MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description End Select End With End Sub

Hallo Tom,
ich hab noch mal ein wenig um das Phäomen des verschwundenen DropDowns der Datengültigkeitsprüfung geforscht.
Dieser ist ebenfalls ein Shape-Objekt und existiert einmal je Tabellenblatt nach dem eine Datengültigkeitsprüfung mit Drop-Downauswahl eingerichtet wurde. Wird es gelöscht, dann scheint es in die ewigen Jagdgründe des Micosoft-Nirwanas zu entschwinden. Ich hab jedenfalls keine Einstellung oder Option gefunden mit die DropDown-Auswahl wieder zum Leben erweckt wird.
Du solltest dein Makro so umstellen, das gezielt nur die Objekte gelöscht werden, die du löschen möchtest - hier wohl nur die Schaltflächen.
Gruß
Franz

Sub ButtonsLoeschen()
Dim ButtonShape As Shape
Dim Sheet As Worksheet
Dim IntCol As Integer
On Error GoTo Fehler
'Setzen von Testwerten
Set Sheet = Worksheets(1)
IntCol = 3
'Löschprozedur
For Each ButtonShape In Sheet.Shapes
Select Case ButtonShape.Type
Case 8 'Formularsteuerelemente
Select Case ButtonShape.FormControlType
Case 0 'xlButtonControl Formularschaltfläche
If ButtonShape.TopLeftCell.Column = IntCol Then ButtonShape.Delete
End Select
Case 12 'OLE-Steuerelementobjekt
Select Case ButtonShape.OLEFormat.progID
Case "Forms.CommandButton.1" 'Ole-Schaltfläche
If ButtonShape.TopLeftCell.Column = IntCol Then ButtonShape.Delete
End Select
End Select
Next
'Fehlerbehandlung am Ende der Prozedur
Fehler:
With Err
Select Case .Number
Case 0 'ales OK
Case 1004 '
If Not ButtonShape Is Nothing Then
With ButtonShape
MsgBox "Shape-Name: " & .Name & vbLf _
& "Tabellen: " & Sheet.Name & vbLf _
& "Sichtbar: " & IIf(.Visible, "ja", "nein"), _
vbInformation + vbOKOnly, "Fehler - Löschen Buttons"
End With
End If
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Buttons in einer Tabelle ansprechen und löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Buttons in einer Tabelle ansprechen und löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread