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 :)
|