Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 12:13:05
Excel hat alter Version synchronisiert (aktuelle Daten weg)
12.10.2025 09:40:32
Wert in Exceltabellen suchen und Fundstelle ausgeben
12.10.2025 02:58:05
Kalenderwoche zählen
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox zurücksetzen

Forumthread: Combobox zurücksetzen

Combobox zurücksetzen
12.01.2021 09:49:51
PeTeR
Hallo VBA-Profis,
Prämisse: Ich habe in einem Tabellenblatt eine ActiveX Combobox1 mit 8 Einträgen. Über das Combobox1_Change-Ereignis starte ich 8 verschiedene Makros.
Problem: Am Ende soll in der Combobox1 wieder der erste Eintrag ausgewählt sein.
Me.Combobox1.Listindex=0 und Me.Combox1.Value="Bitte Makro wählen:" führen nicht zum gewünschten Ergebnis.
Vielen Dank für Eure Unterstützung
PeTeR
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox zurücksetzen
12.01.2021 10:25:17
ChrisL
Hi
Durch Listindex = 0 wird das Change-Ereignis erneut ausgeführt. Du landest womöglich in einer Endlosschleife, was sich mit der b-Variable im nachstehenden Beispiel vermeiden lässt.
Prüfe ob du wirklich 8 Einzelmakros benötigst oder nicht die Auswahl wie im nachstehenden Beispiel an ein einziges Makro übergeben kannst.
Public b As Boolean


Private Sub ComboBox1_Change()
If b Then Exit Sub
Call meinMakro(ComboBox1.Text)
b = True
ComboBox1.ListIndex = 0
b = False
End Sub


Sub meinMakro(strCB As String)
MsgBox strCB
End Sub
cu
Chris
Anzeige
AW: Combobox zurücksetzen
12.01.2021 10:26:01
Matthias
Hallo ...
Ich hab das mal jetzt für mich so umgesetzt: 

Option Explicit
Private Sub ComboBox1_Change()
Select Case Tabelle1.ComboBox1.ListIndex
Case Is = 0
Makro1
Case Is = 1
Makro2
Case Is = 2
Makro3
Case Is = 3
Makro4
Case Is = 4
Makro5
Case Is = 5
Makro6
Case Is = 6
Makro7
Case Is = 7
Makro8
End Select
Tabelle1.ComboBox1.Text = "Bitte eine Auswahl treffen!"
End Sub
ListFillRange der Combobox=Liste (ein definierter Name.)
Gruß Matthias
Anzeige
AW: Combobox zurücksetzen
12.01.2021 11:24:40
PeTeR
DANKE für Eure Anregungen!! Problem gelöst :-)
Bleibt's g'sund
PeTeR
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige