Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Variable Inhalte von ComboBoxen
11.01.2006 13:02:36
ComboBoxen
Hey Leute,
nochmal eine Frage zu den ComboBoxen. Mein UserForm enthält mehrere ComboBoxen. Bei der Initialisierung werden die Inhalte definiert. Nun möchte ich aber, dass der Inhalt der zweiten ComboBox abhängig vom ausgewählten Wert der ersten CB angezeigt wird...
Macht man das überhaupt bei der Initialisierung?

Private Sub UserForm_Initialize()
ComboBox3.AddItem ""
ComboBox3.AddItem "Beiträge"
ComboBox3.AddItem "Test2"
ComboBox3.AddItem "Test3"
ComboBox3.AddItem "Test4"
ComboBox3.AddItem "Test5"
ComboBox3.ListIndex = 0
If ComboBox3.Value = "Beiträge" Then
ComboBox4.AddItem "Beitrag1"
ComboBox4.AddItem "Beitrag2"
ComboBox4.AddItem "Beitrag3"
Else
If ComboBox3.Value = "Test2" Then
ComboBox4.AddItem "Vorab1"
ComboBox4.AddItem "Vorab2"
ComboBox4.AddItem "Vorab3"
Else
ComboBox4.AddItem "Sonstiges"
End If
End Sub

Kann mir jemand helfen?
Danke!
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: Variable Inhalte von ComboBoxen
11.01.2006 13:11:09
ComboBoxen
Hallo,
die Initialisierung kannst du im Enter-Ereignis machen.
Gruß aus’m Pott
Udo

AW: Variable Inhalte von ComboBoxen
11.01.2006 14:09:05
ComboBoxen
Sorry, so gut sind meine VBA-Kenntnisse wohl doch nicht... Könntest du mir vielleicht ein kleines Beispiel posten?
Danke!
Markus
AW: Variable Inhalte von ComboBoxen
11.01.2006 14:27:33
ComboBoxen
Hallo,

Private Sub UserForm_Initialize()
With ComboBox3
.Clear
.AddItem "Beiträge"
.AddItem "Test2"
.AddItem "Test3"
.AddItem "Test4"
.AddItem "Test5"
.ListIndex = -1
End With
End Sub


Private Sub ComboBox3_Change()
ComboBox4.Clear
End Sub


Private Sub ComboBox4_Enter()
With ComboBox4
.Clear
Select Case ComboBox3.Value
Case "Beiträge"
.AddItem "Beitrag1"
.AddItem "Beitrag2"
.AddItem "Beitrag3"
Case "Test2"
.AddItem "Vorab1"
.AddItem "Vorab2"
.AddItem "Vorab3"
Case Else
.AddItem "Sonstiges"
End Select
End With
End Sub

Gruß
Geist ist geil!
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige