erase button
03.09.2002 13:44:12
Alex
ich habe (d.h. Udo „excelerator“ hat) makrogesteuert an das Tabellenende eine Schaltfläche gesetzt, deren Namen geändert und ihr ein Macro zugeordnet (s.u.).
Jetzt möchte ich diese Schaltfläche auch makrogesteuert wieder löschen. Ich müßte also wissen, wie man eine Schaltfläche selektiert.
Sub Button_einfuegen()
letzteZeile = ActiveSheet.Range("A65536").End(xlUp).Row + 2
ButtonTop = Rows(letzteZeile).Top
Sheets("GPS").Select
ActiveSheet.Buttons.Add(70, ButtonTop, 100, 35).Select
Selection.Characters.Text = "Abbrechen"
Selection.OnAction = "close"
End Sub
Vielen Dank für jeden Tip, Alex
Anzeige