Ich habe eine kleine Frage zu der ich noch keine Antwort finden konnte. Jetzt probier ich es mal hier :)
Gibt es einen weg durch Makros in den Entwicklermodus zu wechseln?
MfG
Mario
Sub EntwurfEin()
CommandBars("control Toolbox").Controls(1).Execute
End Sub
Sub EntwurfAus()
CommandBars("control Toolbox").Controls(1).Reset
End Sub
http://www.ms-office-forum.net/forum/showthread.php?t=172281
Public Sub EntwurfsmodusAktivieren()
EntwurfsmodusEinAus True
End Sub
Public Sub EntwurfsmodusDeaktivieren()
EntwurfsmodusEinAus False
End Sub
Public Sub EntwurfsmodusEinAus(bEnter As Boolean)
Dim cbrs As CommandBars
Const sMsoName As String = "DesignMode"
Set cbrs = Application.CommandBars
If Not cbrs Is Nothing Then
If cbrs.GetEnabledMso(sMsoName) Then
If bEnter <> cbrs.GetPressedMso(sMsoName) Then
cbrs.ExecuteMso sMsoName
End If
End If
End If
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß, RenéUm den Entwicklermodus in Excel durch ein Makro zu aktivieren, kannst du die folgenden Schritte befolgen:
VBA-Editor öffnen: Drücke Alt + F11
, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke im Menü auf Einfügen
und wähle Modul
.
Makro-Code einfügen: Füge den folgenden Code ein, um den Entwicklermodus zu aktivieren:
Sub EntwurfEin()
CommandBars("control Toolbox").Controls(1).Execute
End Sub
Sub EntwurfAus()
CommandBars("control Toolbox").Controls(1).Reset
End Sub
Makro ausführen: Du kannst das Makro nun ausführen, um in den Entwicklermodus zu wechseln.
Fehler: Makro wird nicht ausgeführt
Lösung: Überprüfe, ob Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei -> Optionen -> Sicherheitscenter -> Einstellungen für das Sicherheitscenter -> Einstellungen für Makros
und aktiviere die Option, die Makros zulässt.
Fehler: CommandBars nicht gefunden
Lösung: Stelle sicher, dass du die richtige Excel-Version verwendest, da das CommandBar-Objekt möglicherweise in neueren Versionen eingeschränkt ist.
Eine weitere Methode, um den Entwicklermodus zu aktivieren, ist die Verwendung der ExecuteMso
-Methode. Hier ist ein Beispiel:
Public Sub EntwurfsmodusAktivieren()
EntwurfsmodusEinAus True
End Sub
Public Sub EntwurfsmodusDeaktivieren()
EntwurfsmodusEinAus False
End Sub
Public Sub EntwurfsmodusEinAus(bEnter As Boolean)
Dim cbrs As CommandBars
Const sMsoName As String = "DesignMode"
Set cbrs = Application.CommandBars
If Not cbrs Is Nothing Then
If cbrs.GetEnabledMso(sMsoName) Then
If bEnter <> cbrs.GetPressedMso(sMsoName) Then
cbrs.ExecuteMso sMsoName
End If
End If
End If
End Sub
Hier sind einige praktische Beispiele, wie du den Entwicklermodus in Excel nutzen kannst:
1. Wie kann ich den Entwicklermodus deaktivieren?
Du kannst ein ähnliches Makro verwenden, um den Entwicklermodus zu deaktivieren. Nutze den Code für EntwurfAus()
oder EntwurfsmodusDeaktivieren()
.
2. Ist der Entwicklermodus in allen Excel-Versionen verfügbar?
Ja, der Entwicklermodus ist in den meisten Excel-Versionen verfügbar, jedoch können einige Funktionen wie das CommandBar-Objekt in neueren Versionen eingeschränkt sein.
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