Code Ein bzw. Ausschalten

Forumthread: Code Ein bzw. Ausschalten
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Code Ein bzw. Ausschalten

10.01.2003 22: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Code Ein bzw. Ausschalten

10.01.2003 22:47:44

PeterW
Re: Code Ein bzw. Ausschalten

10.01.2003 22:56:15

Steffan Itzerott

Re: Code Ein bzw. Ausschalten

10.01.2003 22: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

Re: Code Ein bzw. Ausschalten

10.01.2003 22: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.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!