2. Combobox füllen nach ausgewähltem Wert der 1.
03.12.2003 13:39:45
werner
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????