Thema Datum  Von Nutzer Rating
Antwort
07.04.2020 11:56:42 Felix
NotSolved
Blau Skript Beenden
 10.04.2020 14:57:25 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
10.04.2020 14:57:25		 Views:
558		 Rating:
     
Antwort:
  Ja
Thema:
Skript Beenden

Hallo,

dazu brauchst du doch nur die Events ein bzw. auszuschalten.

1. Einen CommandButton aus den ActiveX auf dein Tabellenblatt einfügen.

2. Doppelklick auf den Commandbutton

3. Im Eigenschaftenfenster die Caption auf Ausschalten ändern

4. Folgenden Code für das Klick-Ereignis des Commandbuttons

Private Sub CommandButton1_Click()
'Blattname und ggf. Button-Name anpassen
With Worksheets("Tabelle1").CommandButton1
    If .Caption = "Einschalten" Then
        Application.EnableEvents = True
        .Caption = "Ausschalten"
    ElseIf .Caption = "Ausschalten" Then
        Application.EnableEvents = False
        .Caption = "Einschalten"
    End If
End With
End Sub

5. Den Entwurfs-Modus des CommandButtons verlassen.

 

Gruß Werner

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.04.2020 11:56:42 Felix
NotSolved
Blau Skript Beenden
 10.04.2020 14:57:25 Werner
NotSolved