Ist es möglich den Befehl "Entwurfsmodus Start/Beenden" auf einem Commandbutton im Dokument zu integrieren?
Gruss,
Alex
Sub entwurfsmodus_anzeigen()
ActiveSheet.CommandButton1.Select
With CommandBars("control toolbox")
.Visible = True
.Controls("Ei&genschaften").Execute
.Controls("&Entwurfsmodus").Execute
End With
End Sub
Sub entwurfsmodus_ausblenden()
CommandBars("control toolbox").Visible = False
End Sub