Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Message()
   MsgBox ThisWorkbook.FullName
   ActiveSheet.Buttons(2).Delete
End Sub

Private Sub CreateButton()
   Dim btn As Button
   Dim dWidth As Double, dHeight As Double
   dWidth = Range("C6").Width + Range("D6").Width
   dHeight = Range("C6").Height + Range("C7").Height
   Set btn = Tabelle1.Buttons.Add(Range("C6").Left, _
      Range("C6").Top, dWidth, dHeight)
   btn.OnAction = "Message"
   btn.Caption = "Klick mich"
   btn.Visible = True
End Sub

Sub Speichern()
   ThisWorkbook.Save
   Call CreateButton
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeSave