Thema Datum  Von Nutzer Rating
Antwort
07.07.2022 15:48:26 Tim
NotSolved
07.07.2022 16:16:40 ralf_b
*****
NotSolved
Rot Entwickler Button
07.07.2022 16:50:59 Tim
NotSolved
07.07.2022 16:59:24 ralf_b
NotSolved
08.07.2022 22:57:04 Tim
NotSolved
08.07.2022 23:44:25 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Tim
Datum:
07.07.2022 16:50:59
Views:
246
Rating: Antwort:
  Ja
Thema:
Entwickler Button

Hallo Ralf,

Danke für deine Hilfe.

 

Mit ist bewusst, dass man VBA nicht einfach aus dem Ärmel schütteln kann. Mit "Projekt" meinte ich nur diesen Button :)

 

Mein Code war ein bisschen sinnlos verpfuscht, da ich schon einiges probiert hatte mit if else, else if und if if.

 

deine Lösung habe ich jetzt abgeändert und es sieht wie folgt aus.

 

Sub btn_Entwicklermodus()
 
   Dim EModus
   EModus = Range("A49").Value
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", EModus)"
    Application.DisplayFormulaBar = EModus
    Application.DisplayFullScreen = EModus
    ActiveWindow.DisplayHorizontalScrollBar = Not EModus
    ActiveWindow.DisplayVerticalScrollBar = Not EModus
    ActiveWindow.DisplayWorkbookTabs = Not EModus
    ActiveWindow.DisplayHeadings = Not EModus
    
    Range("A49").Value = Not EModus
        
    If EModus = 0 Then
    Range("A45").Value = "Entwicklermodus"
    Range("A45").Font.ColorIndex = 3
    Else
    Range("A45").Value = "Benutzermodus"
    Range("A45").Font.ColorIndex = 0

    End If

    
End Sub

 

Danke nochmals für die Unterstützung.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.07.2022 15:48:26 Tim
NotSolved
07.07.2022 16:16:40 ralf_b
*****
NotSolved
Rot Entwickler Button
07.07.2022 16:50:59 Tim
NotSolved
07.07.2022 16:59:24 ralf_b
NotSolved
08.07.2022 22:57:04 Tim
NotSolved
08.07.2022 23:44:25 ralf_b
NotSolved