Combobox.Listindex = 0 ohne change Ereignis

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Combobox.Listindex = 0 ohne change Ereignis
von: Heiko S.
Geschrieben am: 18.02.2005 11:58:12
Moin moin ans Forum,
stehe mal wieder auf dem Schlauch mit folgendem Problem.
Ich habe eine Combobox in einem Userform. Diese Combobox wird im UserForm_Activate() Ereignis über
ComboBox2.List() = MyArray
' Combobox mit der ersten Zeile vorbelegen.
ComboBox2.ListIndex = 0
befüllt und so vorbelegt das die nullte Zeile angezeigt wird.
Klappt auch alles wunderbar, nur löst die Zeile
ComboBox2.ListIndex = 0
das Combobox2_Change Ereignis aus und ruft mir den darin enthaltenden Code auf.
Wie kann ich das verhindern.
Habe schon
Application.EnableEvents = False
ComboBox2.ListIndex = 0
Application.EnableEvents = True
probiert, brachte aber keinen Erfolg.

Danke schon mal für alle Antworten.
Gruß aus dem Norde, Heiko

Bild

Betrifft: AW: Combobox.Listindex = 0 ohne change Ereignis
von: K.Rola
Geschrieben am: 18.02.2005 12:10:06
Hallo,
so in dieser Art:
Option Explicit
Dim Blocker As Boolean
Private Sub ComboBox1_Change()
If Blocker Then Exit Sub
'mach was!
End Sub
Private Sub UserForm_Activate()
Blocker = True
ComboBox1.ListIndex = 0
Blocker = False
End Sub

Gruß K.Rola
Bild

Betrifft: AW: Combobox.Listindex = 0 ohne change Ereignis
von: Heiko S.
Geschrieben am: 18.02.2005 12:59:59
Hallo K.Rola,

danke für den Tipp, habe ihn etwas für mich angepasst und nun gehts.

Also danke nochmal und ein schönes Wochenende,
Gruß Heiko
Bild

Betrifft: AW: Combobox.Listindex = 0 ohne change Ereignis
von: Franz W.
Geschrieben am: 18.02.2005 12:10:58
Hallo Heiko,
musste ich schmerzlich auch vor kurzem lernen: EnableEvents geht nur auf Tabellenebene, nicht in einer UF
Aber probier doch mal (ungetestet):
If ComboBox2.ListIndex = 0 then exit sub
Grüße
Franz
Bild

Betrifft: AW: Combobox.Listindex = 0 ohne change Ereignis
von: Heiko S.
Geschrieben am: 18.02.2005 12:47:18
Hallo Franz,
danke für den Tipp, geht so aber leider nicht da mit deiner Zeile das auswerten der Zeile 0 nicht mehr möglich wäre.
Werde den Ansatz von K.Rola nutzen.
Trotzdem Danke und ein schönes Wochenende,
Gruß Heiko
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Combobox.Listindex = 0 ohne change Ereignis"