Microsoft Excel

Herbers Excel/VBA-Archiv

Schaltflächen löschen

Betrifft: Schaltflächen löschen von: Kurt K
Geschrieben am: 29.04.2014 09:50:55

Guten Morgen,
wie kann ich alle Schaltflächen von 110 bis 150 löschen ?
Und / Oder Schaltflächen von 110 bis 140 löschen.

Public Sub Schaltflächen_löschen()
ActiveSheet.Shapes("Schaltfläche 110").Delete
End Sub
gruß kurt

  

Betrifft: AW: Schaltflächen löschen von: Hajo_Zi
Geschrieben am: 29.04.2014 09:55:46

Hallo Kurt,

Sub Schaltflächen_löschen()
For Loi=110 To 150
ActiveSheet.Shapes("Schaltfläche " & Loi).Delete
next Loi
End Sub
GrußformelHomepage


  

Betrifft: AW: Schaltflächen löschen von: Matthias L
Geschrieben am: 29.04.2014 09:57:15

Hallo

Nicht getestet!

Public Sub Schaltflächen_löschen()
Dim sfZ&
On Error Resume Next
 For sfZ = 110 To 150
  ActiveSheet.Shapes("Schaltfläche " & sfZ).Delete
 Next
End Sub
Die Schaltflächen müssen natürlich auch so heißen.

Gruß Matthias


  

Betrifft: Danke Hajo und Matthias klappt ! -) von: Kurt K
Geschrieben am: 29.04.2014 10:27:16




 

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