Office: EnableEvents wird ignoriert / ohne Wirkung!

Hallo!

Leider habe ich ein Problem in folgendem Code:

Code:

Sub Workbook_Close()

Application.EnableEvents = False

'Alle Dropdowns refreshen
With Sheets("Fokus01")
.test = ""
End With

'Alle Dropdowns werden deaktiviert
With Sheets("Fokus01")
.test.Enabled = False
End With

Application.EnableEvents = True

End Sub

Obwohl ich Application.EnableEvents = False gesetzt habe, ruft VBA nach 'Alle Dropdowns refreshen das Change-Ereignis des Dropdowns auf (vollständiger Code in der angehängten Mappe). Dies habe ich durch den Prozedurschritt F8 festgestellt!

Weiß jemand, woran das liegen könnte? Danke!

 

Hallo,

Dein Aufruf steht in einer Sub, die erst dann aufgerufen wird, wenn die Mappe geschlossen wird. Daher kann sie in einer geöffneten Mappe nicht funktionieren.

Gruß

Edgar

 

Generell ja, aber ich muss das Makro doch testen, und bin daher mit F8 schrittweise durch das Makro gegangen. Unabhängig davon verstehe ich nicht, wieso EnableEvents = False ignoriert wird?

 

Hallo,

sieh mal hier:

http://www.ms-news.net/f805/combobox-ingnoriert-application-enableevents-false-9117544.html

Gruß

Edgar

 

Danke für den Link, die Idee dahinter klingt einleuchtend. Leider verstehe ich aber nicht alle Teile, kann jemand etwas genaueres dazu sagen?

 

Hallo!

Die weiteren Zeilen gehören zum Code des dortigen Fragestellers und haben mit deiner Problematik nichts zu tun.
Was du zu tun hast, ist nur folgendes:
Deklariere eine globale Variable:

Code:

Public blnCombo As Boolean

Solange du dieser Variable keinen expliziten Wert zuweist, ist sie "False".
Als erste Zeile deines Close-Ereignisses setzt du diese Variable auf "True":

Code:

blnCombo = True

Als letzte Zeile deines Close-Ereignisses setzt du diese Variable wieder auf "False":

Code:

blnCombo = False

Und in der ersten Zeile deines TestChange-Ereignisses fragst du diese Variable ab:

Code:

If blnCombo Then Exit Sub

PS: Was ich mich allerdings frage:
Warum sperrst du die ComboBox beim Schließen der Mappe und warum entsperrst du sie wieder beim Öffnen der Mappe?
Was bitteschön soll mit der ComboBox Schlimmes passieren, wenn die Mappe geschlossen ist?

 

Hallo,

von mir auch noch ein Satz:

If then gibt es in mehreren Ausführungen:
1:

Code:

If Range("A1")="" then Range("A1")=7

Mit diesem Einzeiler ist das Ganze erschlagen. Wenn A1="" dann A1=7. Da könnten jetzt auch andere Anweisungen stehen, aber es reicht diese Zeile. Wird häufig mit THEN EXIT SUB benutzt.
2:

Code:

If Range("A1")="" then
     Range("A1")=7
     End if

Das Gleiche wie in 1 auf 3Zeilen. Wenn A1 leer ist, dann A1=7 sonst mache nichts. Da könnte jetzt auch eine MsgBox als Anweisung stehen.
3:

Code:

If Range("A1")="" then
     Range("A1")=7
     Else
     End if

Gleichbedeutend mit 2
4:

Code:

If Range("A1")="" then
     Range("A1")=7
     Else
     Range("A1")=Range("A1")+1
     End if

Wenn A1="" dann A1=7 sonst A1=a1+1
5:

Code:

If Range("A1")="" then
     Range("A1")=7
     ElseIf Range("A1")=5 then
     Range("A1")=Range("A1")+1
     Else
     Range("A1")=Range("A1")-1
     End if

Zwei verschachtelte Bedingungen, wie bei den Formeln auch.
Wenn A1="" dann A1=7 Ende
wenn A1<>"" prüfe ob A1=5. Wenn ja, dann A1=a1+1, wenn nein dann A1=a1-1

Fazit:

IF braucht kein ELSE und wenn alles in einer Zeile steht noch nicht einmal ein END IF

Gruß

Edgar

 

Hallo schatzi! Danke für deine Hilfe.

Meine Comboboxen enable ich erst, wenn die darüberliegende Combobox einen Wert enthält. Z.B. wird die Combobox Land erst enabled, wenn der Kontinent ausgewählt wurde. Am Ende möchte ich das Formular dann einfach wieder in der Urzustand bringen, daher refreshe und disable ich alle Comboboxen (außer die ganz oben natürlich). Könnte ich natürlich auch beim Öffnen machen!

Das mit der globalen Variable klingt gut, jedoch komme ich zu einem Problem, wenn ein Change-Ereignis sich durch eine eigene Codezeile mittendrin selbst wieder aufruft. Dann ist blnSperre wieder auf False. Dann greift Land_Change() und läuft auch durch, da ja blnSperre auf False ist. Muss ich also für jede Combobox eine eigene globale Variable erstellen?

Hinzu kommt, dass der Code sich nach End Sub jeweils noch zwei Mal wiederholt, verstehe das wer will ... Das ist bei allen meinen Combobox-Change() Ereignissen so. Sie lösen sich nach komplettem Ablauf selbst noch zusätzliche zwei Mal aus.

Edit: hier noch kurze Info wofür strKontinent steht:

 

Kallewirsch, danke für die Erläuterung. So gut beschrieben wie du es hat war es in der VBA Hilfe ganz und garnicht ;)

 

Hallo,

ohne Deine Tabelle zu kennen ist es sehr mühsam Fehler zu suchen.
Was auffällt:
-DIM-Anweisungen gehören an den Anfang des Codes
-Kontinent <> strKontinent ist nicht so günstig, zumindest der Kontinent sollte noch ein Präfix haben, damit man weiß was es ist, hier nehme ich an würde cmb passen.
-

ist ein nicht sinniges Konstrukt. Da wäre

Code:

If strKontinent <> "" Then

wohl besser.

Ansonsten wäre die Tabelle hilfreich, denn Nachbauen ist nicht so prickelnd.

Gruß

Edgar