Josef Ehrensberger & Ute ....Buttons löschen - 2

Bild

Betrifft: Josef Ehrensberger & Ute ....Buttons löschen - 2 von: Jonny
Geschrieben am: 14.02.2005 15:05:45

Ich bekomme immer wieder ein Fehler in dieser Zeile:
If shp.FormControlType = 0 Then

Leider weiss ich nicht wie ich damit umgehen muss?!

Danke




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 20  'Spalte in der sich die zu löschenden Buttons befinden
End Sub

Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen - 2 von: Ute
Geschrieben am: 14.02.2005 15:08:56

Was soll man sagen? Der Code funktioniert einwandfrei!

Ute


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen von: Jonny
Geschrieben am: 14.02.2005 15:14:20

!?!?!?!?!?

und warum dann nicht bei mir!?
Schicksal!? ;o))


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen von: Ute
Geschrieben am: 14.02.2005 15:17:42

Da der Ausdruck FormControlType ein Element der Excelbibliothek, kann es nicht an einem
fehlenden Verweis liegen, ggf. hat dein Excel eine Macke, mal deinstallieren und
neu aufziehen.

Ute


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen - 2 von: Ute
Geschrieben am: 14.02.2005 15:13:27

Warum du immer einen neuen thread eröffnest, ist nicht klar.

Ute


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen von: Jonny
Geschrieben am: 14.02.2005 15:19:29

thread = ?!


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen von: Ute
Geschrieben am: 14.02.2005 15:22:38

thread = neuer Beitrag/neue Frage

Ute


Bild


Betrifft: AW: Josef Ehrensberger & Ute ....Buttons löschen von: Jonny
Geschrieben am: 14.02.2005 16:10:52

Danke....für eure Mühen...


 Bild

Beiträge aus den Excel-Beispielen zum Thema "eingebettete Objekte"