EnableEvents wird ignoriert
16.10.2007 11:11:00
gerwas
Seit drei Tagen verstehe ich die vba-welt nicht mehr!
Ich habe ein macro, welches beim öffnen des workbook ausgeführt wird. Dieses füllt zwei ComboBoxen mit Items. Da ich später die Change-Prozedure der ComboBoxen nutzen will setze ich EnableEvents vor dem Füllen auf False und wenn fertig wieder auf True, damit die Change-Prozedure nicht stört - dachte ich!!
Aber sobald mein Macro die ComboBox ändert, nachdem sie gefüllt wurde, meldet sich die Change-Prozedure, obwohl die Ergeignisse ausgeschaltet sind - und das kann ich nicht verstehen - vielleicht hat jemand einen Tipp...
hier mal der macro-code:
("kum" und "gesamt" sind die objektnamen der blätter, die die ComboBoxen enthalten)
Public oe4, mmm
Sub starten()
oe4 = Array("Bereich 1", "Bereich 2", "Bereich 3", "Bereich 4")
mmm = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", _
"Aug", "Sep", "Okt", "Nov", "Dez")
Application.EnableEvents = False
kum.cmb_wache.Clear
For k = 0 To 3
kum.cmb_wache.AddItem (oe4(k))
Next
kum.cmb_wache = "Bereich auswählen"
kum.Range("b8") = "Bereich 1"
gesamt.cmb_monat.Clear
For k = 0 To 11
gesamt.cmb_monat.AddItem (mmm(k))
Next
gesamt.cmb_monat = "Monat auswählen"
If Day(Date) > 10 Then k = 0 Else k = 1
gesamt.Range("b1") = "Jan"
Application.EnableEvents = True
End Sub
gruss GerWas