VBA Application.EnableEvents will nicht

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich lösche aus einer Combobox sämtliche Inhalte. Dadurch wird das Ereigniss Combobox_Change ausgelöst.
Eigentlich sollte das mittels ‚Application.EnableEvents = False‘ unterdrückt werden, aber das klappt nicht

 Application.EnableEvents = False
 i = cboDateiVgl.ListIndex
 cboDateiAus.Clear
 cboDateiVgl.Clear
 For Each wb In Application.Workbooks
 cboDateiAus.AddItem (wb.Name)
 cboDateiVgl.AddItem (wb.Name)
 Next wb
 cboDateiAus.ListIndex = cboDateiAus.ListCount - 1
 cboDateiVgl.ListIndex = i
 Application.EnableEvents = True

Ziel ist es eben, das er beim löschen der Inhalte nicht das Change ereigniss auslöst.

#2

ich lösche aus einer Combobox sämtliche Inhalte. Dadurch wird
das Ereigniss Combobox_Change ausgelöst.
Eigentlich sollte das mittels ‚Application.EnableEvents =
False‘ unterdrückt werden, aber das klappt nicht

Hi Stefan,
warum das geschieht weiß ich nicht, würde mich auch interessieren.
Workaround:

In Modul1:

Public Nixtun As Boolean

In z.B. Tabelle1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Nixtun = True Then Exit Sub
Nixtun = True

'Code

Nixtun = False
End Sub

Gruß
Reinhard

#3

Ja, das mit dem boolean war ne Gute Idee, hat mir weitergeholfen. Danke