Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

change event "ausschalten"

change event "ausschalten"
23.08.2005 15:35:02
Tinu
Liebe Excel-Gemeinde
Per VBA-Code setze ich den Wert eines Drehfeldes (SpinButton) auf "0". Dabei wird nun aber der change event des SpinButtons ausgelöst und startet einen ganzen Rattenschwanz von Routinen. Gibt es eine Möglichkeit diesen Change Event während des Null-Stellens auszuschalten?
besten Dank für Euere Hilfe
Gruss
Tinu

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: change event "ausschalten"
23.08.2005 15:43:46
Matthias
Hallo Tinu,
Application.EnableEvents = False geht hier nicht.
erstelle eine globale Variable (z.B. "NoEvent"), die du auf True stellst, wenn das Change-Event nicht ausgelöst werden soll:

Public NoEvent As Boolean
Sub test()
NoEvent = True
Tabelle1.SpinButton1.Value = 11
NoEvent = False
End Sub

und ins Tabellenblattmodul:

Private Sub SpinButton1_Change()
If NoEvent Then Exit Sub
'dein Code
End Sub

Gruß Matthias
AW: change event "ausschalten"
23.08.2005 16:19:50
Tinu
Hallo Matthias
Vielen Dank für Deine rasche Antwort. Irgendetwas mache ich noch falsch, denn es hilft nichts.
In einem Modul habe ich also folgendes eingefügt:
Sub getAssignments()

On Error GoTo ErrHandler
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Dim NoEvent As Boolean
NoEvent = True
Worksheets("menu").SpinButton1.Value = 0
NoEvent = False
.....hier mein Code
Im Tabellenblatt habe ich dann diesen Code:

Private Sub SpinButton1_Change()
If NoEvent Then Exit Sub
Application.Run "movetable"
End Sub

Kanns Du mir sagen, was daran falsch ist?
Gruss
Tinu
Anzeige
AW: change event "ausschalten"
23.08.2005 16:28:46
Matthias
Hallo Tinu,
die Deklaration von NoEvent muss in ein normales Modul außerhalb aller Prozeduen, am besten an den Anfang:

Public NoEvent As Boolean

Nur dann ist die Variable in der ganzen Mappe bekannt.
Tip: aktiviere in VB-Editor unter "Extras, Optionen", Karte "Editor" den Haken bei "Variablendeklaration erforderlich". Das stellt an den Anfang jedes neuen Moduls ein "Option Explicit", und dann wäre bei deinem Lösungsversuch im Code des Tabellenblattes der Fehler "Variable nicht deklariert" gekommen.
Zwingt insgesamt zu sauberer Programmierung, lässt manche Fehler leichter erkennen.
Gruß Matthias
Anzeige
AW: change event "ausschalten"
23.08.2005 17:10:11
Tinu
Ja genau, jetzt klappt's :)))
Vielen Dank für Deine Hilfe und den Tip!
Gruss
Tinu

36 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Anzeige
Worksheet.Change Event bei Aktivierung der Zelle
Ratfish

Hallo zusammen,
ich möchte das Datum der letzten Änderung einer Zelle in einer anderen Zelle festhalten. Dieser Code funktioniert: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 And Target.Row >= 1 Then 'MsgBox (Target.Row) Cells(Target.Row, 2) = Date End...
05.02.2014 12:13:30
Thread-ID: 1348112
3 Beiträge
Worksheet_Change Event in Addin erkennen
Hans

Hallo zusammen,
gibt es eine Möglichkeit in einem Addin ein Worksheet_change-Event einer anderen Datei zu erkennen?
Beispiel:
MeinAddin.xla ist geladen
Mappe1.xls ist geöffnet und wird geändert.
MeinAddin.xla weiß, dass eine Änderung stattgefunden hat.
Ziel wäre eine Erk...
01.04.2014 13:38:00
Thread-ID: 1355674
8 Beiträge
Kopieren von Range-Varible löst Change-Event aus?
Range-Varible

Servus,
versuche gerade das explizite Einlesen von Ranges in eine Variable zu minimieren. Dazu lese ich den Range nur einmal in eine globale Variable ein und möchte dann bei späteren Aufrufen einfach nur die Range-Variable übergeben.
Wenn ich das Folgende nun in einer WorksheetChange-Pr...
22.07.2014 12:22:36
Thread-ID: 1371551
16 Beiträge
Spannendes SelectionChange Event
rx1600

Hallo VBA Experten,
ich habe eine persönliche Herausforderung mit dem SelectionChange Event.
Ich möchte, dass Excel eine Zelle mit einem "#" überschreibt / editiert, wenn eine beliebige Zelle in einer Zeile selektiert ist. Dies soll für mehrere Zeilen geschehen. Wenn also eine beliebige...
13.03.2015 12:00:03
Thread-ID: 1414841
8 Beiträge
VBA Private Worksheets Change zusammenfügen
Hanna

Hallo zusammen,
ich bin gerade dabei, mich ein bisschen mit Makros auseinanderzusetzen.
Konkret geht es darum, dass ich eine Excel-Tabelle habe, die verschiedene Eingabe(Listen)felder hat, insgesamt 11 Stück.
Bei der Arbeit mit der Tabelle kann es vorkommen, dass nur das erste Einga...
26.05.2015 21:31:02
Thread-ID: 1427868
8 Beiträge
Anzeige

Links zu Excel-Dialogen

SpinButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
7
2
2
2
7
15
7
7
1
5
2
3
2
11
8
4
5
1
2
7
3
4
2