Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox

ComboBox
Gereon
Möchte gerne zwei ComboBox in Abhängigkeit zu einer Füllen lassen.
Code:
ComboBox1.Clear
ComboBox1.AddItem "Montag"
ComboBox1.AddItem "Dienstag"
ComboBox1.AddItem "Mittwoch"
If ComboBox1.Text = "Montag" Then
ComboBox2.Clear
ComboBox2.AddItem "12.00 Uhr": ComboBox2.AddItem "13.00 Uhr"
End If
If ComboBox1.Text = "Dienstag" Then
ComboBox2.Clear
ComboBox2.AddItem "14.00 Uhr": ComboBox2.AddItem "15.00 Uhr"
End If
If ComboBox1.Text = "Mittwoch" Then
ComboBox2.Clear
ComboBox2.AddItem "16.00 Uhr": ComboBox2.AddItem "17.00 Uhr"
End If
Kann mir jemand sagen, ob der Code richtig ist oder nicht und wie der Befehl lautet, damit beim Öffnen des ComboBox-Menüs die 1. ComboBox gefüllt wird und bei der Auswahl des Kritiriums automatisch die 2. ComboBox gefüllt wird.
Gruß und Danke für die Hilfe
Gereon

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ComboBox
ChrisL
Hi Gereon
Richtig oder falsch musst du schon selber wissen. Jedenfalls ist "Select Case" m.E. geeigneter...
Option Explicit

Private Sub ComboBox1_Change()
ComboBox2.Clear
Select Case ComboBox1
Case "Montag"
ComboBox2.AddItem "12.00 Uhr": ComboBox2.AddItem "13.00 Uhr"
Case "Dienstag"
ComboBox2.AddItem "14.00 Uhr": ComboBox2.AddItem "15.00 Uhr"
Case "Mittwoch"
ComboBox2.AddItem "16.00 Uhr": ComboBox2.AddItem "17.00 Uhr"
End Select
End Sub


Private Sub UserForm_Initialize()
ComboBox1.AddItem "Montag"
ComboBox1.AddItem "Dienstag"
ComboBox1.AddItem "Mittwoch"
End Sub

Gruss
Chris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige