Buttons löschen

Bild

Betrifft: Buttons löschen
von: Jonny
Geschrieben am: 14.02.2005 11:47:45
Hi,

ich habe eine Spalte, in der ich mehrere Buttons habe. Ich will einen "Oberbutton" kreieren, mit dem ich dann alle anderen Buttons in der Spalte löschen kann.?!
Wie mach ich das am besten?!

danke im Vorraus

Bild

Betrifft: AW: Buttons löschen
von: Jonny
Geschrieben am: 14.02.2005 11:55:57
Oder einfach gefragt,
wie kann ich erkennen, ob in einer Zelle ein Button ist oder nicht!?
Bild

Betrifft: AW: Buttons löschen
von: Josef Ehrensberger
Geschrieben am: 14.02.2005 12:16:38
Hallo Jonny!
Buttons aus Formular oder Steuerelemente?
Befinden sich noch andere Shapes auf der Tabelle?
Steht der Button zum Löschen in der selben Spalte wie die zu löschenden Buttons?

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Buttons löschen
von: Jonny
Geschrieben am: 14.02.2005 13:08:46
Hi,
1. Formular
2. ja
3. nein..
danke
Bild

Betrifft: AW: Buttons löschen
von: Josef Ehrensberger
Geschrieben am: 14.02.2005 13:46:24
Hallo Jonny!
Das sollte es tun.

Sub loescheButton(spalte As Integer)
Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
      If shp.FormControlType = 0 Then
         If shp.TopLeftCell.Column = spalte Then shp.Delete
      End If
   Next
End Sub
Sub test()
loescheButton 5   'Spalte in der sich die zu löschenden Buttons befinden
End Sub

Du weist einem Button das Makro "test" zu, und gibst dort
die Spaltennummer als Argument für das Makro "loeschenButton" an!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Buttons löschen
von: Jonny
Geschrieben am: 14.02.2005 14:21:40
Hi Sepp,
ich habe den code, wie du es gesagt hattest eingefügt, aber er meckert, dass, wenn ich keine end if habe, und wenn ich diese einfüge, dann meckert er auch!?
Ich weiss nicht ob es Absicht war, aber du hattes beim ersten THEN das "_" vergessen.

Gruss Jonny


Sub Eingefügte_Zeilen_löschen()
loescheButton 20 'Spalte in der sich die zu löschenden Buttons befinden
End Sub



Sub loescheButton(spalte As Integer)
Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
      If shp.FormControlType = 0 Then _
         If shp.TopLeftCell.Column = spalte Then shp.Delete
         End If
     End If
   Next
End Sub

Bild

Betrifft: AW: Buttons löschen
von: Ute
Geschrieben am: 14.02.2005 14:25:39

Sub loescheButton(spalte As Integer)
Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
      If shp.FormControlType = 0 Then
         If shp.TopLeftCell.Column = spalte Then shp.Delete
      End If
   Next
End Sub

Ute
Bild

Betrifft: AW: Buttons löschen
von: Jonny
Geschrieben am: 14.02.2005 14:29:35
Es meckert in dieser Zeile:
If shp.FormControlType = 0 Then ' Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler
deshalb hatte ich auch ein "_" drangehängt?!
aber dann fing das Gemeckere mit den End-ifs an...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Buttons löschen"