Das Archiv des Excel-Forums

Change-Ereignis in Combobox unterdrücken

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

Betrifft: Change-Ereignis in Combobox unterdrücken
von: matthias5

Geschrieben am: 06.05.2008 16:19:45

Hallo ihr da draußen,
ich möchte bei Initialisierung einer Userform den in ihr liegenden Comboboxen einen Wert zuweisen. Dabei möchte ich, dass das Change-Ereignis der Comboboxen nicht ausgelöst wird. Ich dachte, dass könnte ich mit Application.EnableEvents = FALSE machen, aber das Change-Ereignis der Combobox wird dennoch ausgelöst. Was mache ich denn falsch?

Private Sub UserForm_Initialize()
Application.EnableEvents = False
With Sheets("pivot")
    ComboBox1.Text = .Range("B3")
'...
End With
Application.EnableEvents = True
End Sub
Code eingefügt mit Syntaxhighlighter 4.15

Danke fürs Mitdenken!
Viele Grüße
Matthias

Bild

Betrifft: AW: Change-Ereignis in Combobox unterdrücken
von: Bertram
Geschrieben am: 06.05.2008 16:23:37
Hallo Matthias,
den (Gedanken-) Fehler hatte ich auch gemacht:-)
Schau dir das mal an: https://www.herber.de/forum/archiv/972to976/t974796.htm
Gruß
Bertram

Bild

Betrifft: Hervorragend! Vielen Dank ...
von: matthias5

Geschrieben am: 06.05.2008 16:26:57
Hallo Bertram,
...für die schnelle und hilfreiche Antwort! :-)
Viele Grüße
Matthias

Bild

Betrifft: Man muss nicht alles wissen,...
von: Bertram
Geschrieben am: 06.05.2008 16:29:04
... man muss nur wissen wo es steht:-)
Gruß
Bertram

Bild

Betrifft: Wie wahr... ;-)
von: matthias5

Geschrieben am: 06.05.2008 16:36:26


Bild

Betrifft: AW: Change-Ereignis in Combobox unterdrücken
von: Oberschlumpf
Geschrieben am: 06.05.2008 16:29:42
Hi Matthias
Falsch machst du nur, dass du Application.EnableEvents = False für Steuerelemente-Events verwenden willst, was aber nicht geht, da sich Applic.... nur auf die Worksheets-Events anwenden lassen.
Mehr Erfolg wirst du mit einer Public-Variablen haben - z Bsp.


Public pboEventNotOK As Boolean
Private Sub UserForm_Initialize()
pboEventNotOK = True
With Sheets("pivot")
ComboBox1.Text = .Range("B3")
End With
End Sub
Sub ComboBox1_Click()
If pboEventNotOK = True Then
pboEventNotOK = False
Exit Sub
End If
'dein weiterer Code
End Sub


Hilft das?
Ciao
Thorsten

Bild

Betrifft: Und ob das Hilft! Auch dir vielen Dank, Thorsten!
von: matthias5

Geschrieben am: 06.05.2008 16:35:34
:-)
Viele Grüße
Matthias

Bild

Betrifft: AW: Change-Ereignis in Combobox unterdrücken
von: Hajo_Zi
Geschrieben am: 06.05.2008 16:46:26
Hallo Thorsten,
es muss keine neue Variable sein, man kann auch die Tag Eigenschaft dafür benutzen.


Bild

Betrifft: AW: Change-Ereignis in Combobox unterdrücken
von: Oberschlumpf

Geschrieben am: 06.05.2008 23:07:22
Hallo HaJo
Vielen Dank - wieder etwas Neues entdeckt...aber leider noch nicht verstanden.
Könntest du mir (und anderen Interessierten) bitte einen Bsp-Code zeigen?
Danke
Thorsten

Bild

Betrifft: Beispiel mit .Tag Eigenschaft...
von: Renee
Geschrieben am: 06.05.2008 23:15:31
siehe im erwähnten Thread: https://www.herber.de/forum/archiv/972to976/t974796.htm#974813 ,Thorsten
manchmal muss man alles lesen ;-)
GreetZ Renée

Bild

Betrifft: AW: Beispiel mit .Tag Eigenschaft...
von: Oberschlumpf

Geschrieben am: 06.05.2008 23:26:54
Wo du Recht hast, hast du Recht, Renee! :-)
Danke für das auf die Sprünge helfen..grins
Ciao
Thorsten

 Bild

Excel-Beispiele zum Thema "Change-Ereignis in Combobox unterdrücken"

Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen download Makroverzweigung im Change-Ereignis download
Beispiele zum Einsatz des SelectionChange-Ereignisses download 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