Hallo,

ich habe gerade erst mit VBA angefangen und  bin bei meinem Projekt auf ein Problem gestoßen.

Ich möchte einen Button einfügen, mit dem Programmteile ausgeblendet und bei erneutem Klick wieder eingeblendet werden.

Sub btn_Entwicklermodus()
Dim EModus As Integer

'Benutzermodus
If EModus <= 1 Then
EModus = 0
Application.DisplayFullScreen = False
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
Range("E40") = EModus
End If

'Entwicklermodus
If EModus <= 0 Then
EModus = 1
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Range("E40") = EModus
End If


End Sub

Ich hoffe auf Hilfe :)