Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


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

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.


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige