---

Hallo,
ich habe folgenden Problem:
In einer ComboBox werden Katalognummern dargestellt.
Ich habe die ComboBox JB_1_Combo folgendermassen gefüllt, Bevor ich mit UserForm1.Show das Dialogfenster starte:

Code:

---

UserForm1.JB_1_Combo.Clear
For i = 0 To UBound(Katalog)
  UserForm1.JB_1_Combo.AddItem Katalog(i)
  Next
UserForm1.JB_1_Combo.ListIndex = 0

---

In dem Modul UserForm1 habe ich der ComboBox eine Privat Sub zugewisen:

Code:

---

Private Sub JB_1_Combo_Change()
MachIrgendEtwas
End Sub

---

Das Problem ist jetzt, daß die Sub JB_1_Combo_Change beim Füllen der ComboBox bereits eine Änderung registriert (bei der Zeile UserForm1.JB_1_Combo.ListIndex = 0) und dann nach dem Starten von UserForm1.Show diese Sub startet. D.h., die Funktion MachIrgendEtwas wird beim Starten der Dialogbox und bei Auswahl aus der ComboBox ausgeführt.
Ich möchte die Funktion aber nur bei Auswahl aus der ComboBox starten.

Bitte schreibt langsam, denn in VBA bin ich nicht sonderlich bewandert

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi joern,

zum einen hast du mal die moeglichkeit, dass du ein flag setzt, das im event-handling von combobox_changed dann abfragst, z.b.

'folgende variable wird auf true gesetzt vor dem fuellen
'                      alf false gesetzt nach dem fuellen
Private pIsInitializing as Boolean 

'dein eventhandling prueft vor irgendeiner aktion auf diese variable ab
Private sub ComboBox_Changed()
  if not pIsInitializing then
      ...do your handling
  end if
End Sub

'deine combobox-befuellung sieht dann so aus
Private Sub FillCombo()
  pIsInitialized = True
  .....jetzt dein for-next mit fuellen
  pIsInitialized = False
End Sub

-------------------------------------
naechster tip: schau dir mal an, welche events die combobox noch kann, eventuell findest du einen, der nicht auf jede aenderung anspricht und besser zu deinem workflow/userinterface passt (moeglicherweise 'Click').

- alfred -

---

Hallo Alfred,
danke für Deine Antwort, ich habe es jetzt wie vorgeschlagen mit einem Flag gelöst.
_Click als weiteres event hatte ich bereits ohne Erfolg getestet, das Ergebnis war dasselbe.
Was mir beim Debuggen aufgefallen ist:
Die Sub wird nicht nur von
UserForm1.JB_1_Combo.ListIndex = 0
angesprochen, sondern auch von
UserForm1.JB_1_Combo.Clear
angesprochen.

Aber egal, ich bin jetzt erstmal weiter, danke nochmals

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP