Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
AW: Combobox zurücksetzen
12.01.2021 11:24:40
PeTeR
DANKE für Eure Anregungen!! Problem gelöst :-)
Bleibt's g'sund
PeTeR

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige