Combobox Ereignis

• Combobox Ereignis von Jörg vom 05.05.2008 15:50:24
• AW: Combobox Ereignis - von Bertram am 05.05.2008 15:54:34
  • das ist falsch - von Rudi Maintaire am 05.05.2008 15:57:21
    • AW: das ist falsch - von Bertram am 05.05.2008 16:14:07
• AW: Combobox Ereignis - von Nico am 05.05.2008 15:56:18
• AW: Combobox Ereignis - von Rudi Maintaire am 05.05.2008 16:00:23
• AW: Combobox Ereignis - von Renee am 05.05.2008 16:08:13

Betrifft: Combobox Ereignis
von: Jörg

Geschrieben am: 05.05.2008 15:50:24

Hallo zusammen,
folgendes Problem:
Beim öffnen eines Userform werden in eine Combobox Werte zur Auswahl eingelesen.
Wenn ein Wert ausgewählt wird soll eine Prozedur ausgeführt werden (Private Sub Combobox1_change () ). Leider wird die Prozedur schon beim füllen ausgeführt. Denke, daß dies schon einem change entspricht.
Wie kann ich die Prozedur ansteuern ohne, daß das erste Füllen von Werten berücksichtigt wird?
Mit freundlichen Grüssen
Jörg

Betrifft: AW: Combobox Ereignis
von: Bertram
Geschrieben am: 05.05.2008 15:54:34
Hallo Jörg,
bevor du die Box befüllst, schreibe Application.EnableEvents = False und danach Application.EnableEvents = True
Gruß
Bertram

Betrifft: das ist falsch
von: Rudi Maintaire

Geschrieben am: 05.05.2008 15:57:21
Hallo,
EnableEvents hat bei UF keine Auswirkungen.
Gruß
Rudi

Betrifft: AW: das ist falsch
von: Bertram
Geschrieben am: 05.05.2008 16:14:07
Hallo Rudi,
das wußte ich noch nicht. Hab's bisher nicht gebraucht. Hab's gerade ausprobiert und siehe da....Du hast Recht:-)
Danke für die Korrektur.
Gruß
Bertram

Betrifft: AW: Combobox Ereignis
von: Nico

Geschrieben am: 05.05.2008 15:56:18
Hi Jörg
Da du wahrscheinlich einen "Start"-Button für die Prozedur in der Userform hast, würde ich per VBA vorher den Wert der Combobox auslesen und darauf die entsprechende Prozedur starten.
...
If Me!DeineCombobox.Value = 1 Then
...
Gruß
Nico

Betrifft: AW: Combobox Ereignis
von: Rudi Maintaire
Geschrieben am: 05.05.2008 16:00:23
Hallo,
etwa so:

Option Explicit
Dim blnInit As Boolean
Private Sub ComboBox1_Change()
If blnInit = False Then
'Code
End If
End Sub
Private Sub UserForm_Activate()
blnInit = True
'code zum Befüllen der CB
blnInit = False
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Betrifft: AW: Combobox Ereignis
von: Renee

Geschrieben am: 05.05.2008 16:08:13
Hi Jörg,
So:

Im Initialize oder Activate der Userform:
ComboBox1.Tag = "X"
...dann abfüllen ... und ListIndex setzen ;-)
ComboBox1.Tag = ""
In der ComboBox:
Sub ComboBox1_Change()
   If ComboBox1.Tag = "X" then Exit Sub
....weitere change Befehle

GreetZ Renée

Excel-Beispiele zum Thema "Combobox Ereignis"

ComboBox als Symbol		Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen		ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen		Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken		Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen		Neues Element in ComboBox
Werteübernahme gem. Auswahl in ComboBox - ohne VBA		Blätter in ComboBox-Feld einlesen und auswählen
Wert in einer CommandBarComboBox verändern		ComboBox-Felder in UserForm aufklappen
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen		Wert aus 2. UserForm-ComboBox-Spalte berechnen
In einer ComboBox selektiertes Arbeitsblatt auswählen		ComboBox in Abhängigkeit von einer CheckBox anzeigen
Adressfeld aus UserForm-ComboBox füllen		Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen
UserForm mit ComboBoxes durch VBA-Code erstellen		ComboBoxes per VBA-Code in Tabellenblatt erzeugen
ComboBox für Monatsblattauswahl in Menüleiste einfügen		Wert aus ComboBox in Tabelle eintragen
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen		Symbolleiste mit ComboBox erstellen
Werte in UserForm-ComboBox einlesen und ausgeben		Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes
Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen		Werte aus UserForm-ComboBox suchen und Fundstelle kopieren
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert		UserForm-ComboBoxes als Collection-Objekte ansprechen
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle		Zweidimensionales Array an UserForm-ComboBox übergeben
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen		Wert aus ComboBox in TextBox, dann in Tabelle suchen
Summe aller Werte gem. ComboBox-Eintrag		Geöffete Arbeitsmappen in Menü-ComboBox listen
Tabelle nach ComboBox-Auswahl durchsuchen		Blattauswahl über eine UserForm-ComboBox
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen		Doppelt vorkommende Werte in einer UserForm-Combobox listen
Selektieren von über ComboBox-Felder ausgewählten Werten		Nach Artikelauswahl in ComboBox Preis ermitteln
Wert in ComboBox einlesen, suchen, editieren, ausgeben		Liste ohne Doppelte Werte in ComboBox einlesen
ComboBox-Breiten während der Laufzeit festlegen		Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen		Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen
Die Ereignisse Zellauswahl, Eingabe und Doppelklick		SVERWEIS als Ereignisprozedur
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen		Makroverzweigung im Change-Ereignis
ComboBox mit Ereigniscode in Tabellenblatt erstellen		DoubleClick-Ereignis für alle Arbeitsmappen initialisieren
Begrenzung der Textlänge über Ereignis-Programmierung		Beispiele zum Einsatz des SelectionChange-Ereignisses