hallo,
kann man die folgenden befehle irgendwie zusammenfassen ?
ActiveSheet.Shapes("Button 1").Cut ActiveSheet.Shapes("Button 2").Cut ActiveSheet.Shapes("Button 3").Cut ActiveSheet.Shapes("Button 4").Cut BIG THx
Hi ?, ungetestet: for n = 1 to 4 ActiveSheet.Shapes("Button " & n).Cut next n
wenn es die einzigen sind vielleicht so ActiveSheet.Shapes.Cut
Gruß Reinhard