Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code Ein bzw. Ausschalten

Forumthread: Code Ein bzw. Ausschalten

Code Ein bzw. Ausschalten
10.01.2003 21:37:11
Jan
Hallo,
kann man diesen Code über eine Schaltläche EIN und AUS Schalten?

Private Sub Worksheet_SelectionChange( _
ByVal Target As Excel.Range)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Range(Target, Target.Offset(0, 9)).Select
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Gruß Jan


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Code Ein bzw. Ausschalten
10.01.2003 21:47:44
PeterW
Hallo Jan,

das könnte über eine Public-Variable gehen. In einem normalen Modul vor dem ersten Code:

Option Explicit
Public einAus As Boolean

In das Modul der Tabelle:
Private Sub CommandButton1_Click()
If einAus = True Then
einAus = False
Else
einAus = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If einAus Then Exit Sub
MsgBox "Ausführung"
End Sub

Gruß
Peter

Anzeige
Re: Code Ein bzw. Ausschalten
10.01.2003 21:56:15
Steffan Itzerott
Hallo Jan,

versuchs mal mit einem ToggleButton auf Deinem Blatt:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ToggleButton1.Value = True Then
'...Dein Code
End If
End Sub

Steffan.


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige