Das Archiv des Excel-Forums

Combobox Ereignis

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

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

Bild

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

Bild

Betrifft: das ist falsch
von: Rudi Maintaire

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

Bild

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

Bild

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

Bild

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

Bild

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

 Bild

Excel-Beispiele zum Thema "Combobox Ereignis"

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