Private Sub Workbook_Activate()
On Error Resume Next
If NeuesIcon.BuiltIn Then
Application.CommandBars.Add(Name:="Konverter").Visible = True
Set NeuesIcon = Application.CommandBars("Konverter").Controls.Add(Type:=msoControlButton, ID _
:=2950, Before:=1)
NeuesIcon.OnAction = "Schaltfläche1_BeiKlick"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Konverter").Delete
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("Konverter").Delete
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen