VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Speichern Schaltfläche erstellen

Gruppe

Ereignis

Bereich

BeforeSave

Thema

Beim Speichern Schaltfläche erstellen

Problem

Nach dem Speichern der Arbeitsmappe soll eine Schaltfläche erstellt werden, die nach deren Aufruf wieder gelöscht wird.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.




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