Herbers Excel-Forum - das Archiv

2. Combobox füllen nach ausgewähltem Wert der 1.

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ComboBox ⇒ TextBox ⇒ UserForm
Bild

Betrifft: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: werner
Geschrieben am: 03.12.2003 13:39:45
Hallo Leute

Auf einer UserForm habe ich 2 ComboBoxen und 2 TextBoxen.
Die Daten der ComboBox5 lade ich mit folgendem Code:



Private Sub UserForm_Activate()
Dim Z5 As Integer
Dim F6 As Range
Z5 = Sheets("Daten").Range("C2")
Set F6 = Sheets("Daten").Cells(2, 1)  'Daten stehen in Spalte A
Me.ComboBox5.Clear
For i = 0 To Z5 - 1
Me.ComboBox5.AddItem F6
Set F6 = F6.Offset(1, 0)
Next
End Sub


Die beiden Textboxen fülle ich in durch Auswahl eines Wertes der ComboBox5 mit folgendem Code:



Private Sub ComboBox5_Change()
Dim F3 As Range
TNR = Me.ComboBox5
TIndex = Me.ComboBox5.ListIndex
Set F3 = Sheets("Daten").Cells(TIndex + 2, 2)
Me.TextBox8 = F3  'Autragsnummer eintragen in TextBox8
Set F3 = F3.Offset(0, 8)
Me.TextBox4 = F3  ' Rückmeldetext eintragen in TextBox4
End Sub


Nun möchte ich auch noch die ComboBox6 bei auswahl eines Wertes mit der dazugehörigen Liste vom Sheets("Daten")füllen.
Die Daten zum 1. Eintrag stehen von M2 - M50; für den 2. Eintrag von P2 - P50; für den 3. Eintrag von S2 - S50 u.s.w.
Wie kann ich die ComboBox6 mit den dazugehörigen Listen befüllen????
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: xXx
Geschrieben am: 03.12.2003 13:56:27
Hallo,
additem ist viel zu lahm. Nimm lieber die RowSource-Eigenschaft.

Me.Combobox5.Rowsource="Daten!A2:A"&Z5-1

Für die Werte in ComboBox6 folgende Zeile in Combobox5_change eintragen:
me.combobox6.RowSource="Daten!" &range(cells(2,TIndex+13+TIndex*3),cells(50,TIndex+13+TIndex*3)).Address

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: Werner
Geschrieben am: 03.12.2003 14:06:49
Hallo Udo,

wenn ich den ersten Eintrag aus der ComboBox5 auswähle ist es ok.

Wenn ich aber den 2. Eintrag oder einen anderen wähle, bekomme ich die dazugehörige Liste nicht in ComboBox6 angezeigt.

Werner
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: xXx
Geschrieben am: 03.12.2003 14:29:47
Hallo,
ist ein Fehler in der Formel.
Muss ="Daten!" &Range(cells(2,13+TIndex*3),cells(50,13+TIndex*3)).Address heißen.

Gruß aus'm Pott
Udo
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: Werner
Geschrieben am: 03.12.2003 14:46:03
Hallo,

es funktioniert einwandfei danke für die Hilfe.
Eine bitte habe ich aber noch.

ist es möglich, dass in der ComboBox6 der letzte Eintrag gelöscht wird, wenn in der ComboBox5 ein neuer Wert ausgewählt wird. So dass die Box leer ist und erst beim öffnen die Liste angezeigt wird?

Werner
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: xXx
Geschrieben am: 03.12.2003 14:59:37
Hallo,
Combobox6.Listindex=-1

Gruß aus'm Pott
Udo
Bild

Betrifft: AW: 2. Combobox füllen nach ausgewähltem Wert der 1.
von: Werner
Geschrieben am: 03.12.2003 15:03:02
Hallo Udo,

klappt alles sehr gut Danke

Werner
Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " 2. Combobox füllen nach ausgewähltem Wert der 1."
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox