.EnableEvents tut´s nicht
Marc
In einer UF setze ich in verschiedene Listboxen Initialwerte, z.B. lst_fachbereich.value = "Rest".
Wenn diese später geändert werden, löst das CHANGE-Ereignis die Neuberechnung des Endergebnisses aus.
Bei der Initialisierung würde ich das gern unterdrücken mit Application.EnableEvents = True, trotzdem wird das CHANGE-Ereignis ausgelöst.
Wie kann ich das verhindern? Was mach ich falsch?
Hier noch der entsprechende Code-Schnipsel:
With Worksheets("Kostenfaktoren").Range("A:A")
'txt_zuschlag.Text = .Find(What:="Aufschlagfaktor:").Offset(0, 1)
Set fachb = .Find(Mitarb_arr(1), LookIn:=xlValues)
Application.EnableEvents = False
If Not fachb Is Nothing Then
lst_fachbereich.value = fachb.Offset(0, 1)
Else
lst_fachbereich.value = "Rest"
End If
Application.EnableEvents = True
End With
Gruß, Marc