Ich habe folgendes Problem:
Ich habe eine Userform mit mehreren Textboxes erstellt. Auf dieser Userform habe ich nun einen Button angelegt bei dessen
Betätigung öffnet sich eine weitere Userform. Auf dieser Userform
befinden sich eine Combobox und 2 Listboxes. Nun ist mein Problem
wie folgt:
Ich habe der Combobox per Additem mehrere feste Werte zugewiesen (z.B. Fo, St, He). Nun sollen z. Bsp. bei Doppelklick von Fo in der Listbox1 mehrere Werte erscheinen (z.B. GT Fo, WT Fo usw.). Wenn nun hier auch per Doppelklick einer dieser Werte gewählt wird sollen in der ListBox2 wieder mehrere feste Werte erscheinen (z.B. Fo 01, Fo 02). Wenn nun wieder einer dieser Werte mit Doppelklick bestätigt wird, werden fest definierte Zellen aus einem Workheet ausgelesen und in TextBoxen in einer
anderen UserForm eingefügt.
Das funktioniert alles soweit sehr gut allerdings nur wenn ich eine Auswahlmöglichkeit gebe. Sobald ich mehrere Auswahlmöglichkeiten anlege habe ich ein Problem mit der Zuweisung.
Ich habe mal meinen Code angehängt vielleicht kann mir ja jemand helfen. Würde auch Datei mal per E-Mail zuschicken zur besseren Verdeutlichung.
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("Fo")
ComboBox1.AddItem ("St")
ComboBox1.AddItem ("He")
End Sub
Private Sub ComboBox1_Click()
'Modellreihe
If ComboBox1.Value = "" Then Exit Sub
Select Case ComboBox1.ListIndex
Case 0
ListBox1.AddItem ("GT Fo")
ListBox1.AddItem ("WT Fo")
Case 1
ListBox1.AddItem ("GT St")
ListBox1.AddItem ("WT St")
Case 2
ListBox1.AddItem ("GT He")
ListBox1.AddItem ("WT He")
End Select
Frame2.Enabled = True
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Modell
If ListBox1.Value = "" Then Exit Sub
Select Case ListBox1.ListIndex
Case 0
ListBox2.AddItem ("Fo 01")
ListBox2.AddItem ("Fo 02")
Case 1
ListBox2.AddItem ("St 01")
ListBox2.AddItem ("St 02")
Case 2
ListBox2.AddItem ("He 01")
ListBox2.AddItem ("He 02")
End Select
Frame3.Enabled = True
End Sub
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Übernahme Modell in Artikel-Userform
If ListBox2.Value = "" Then Exit Sub
Select Case ListBox2.ListIndex
Case 0 ' GT62
Artikel.TextBox4.Value = Worksheets("Daten").Range("A3").Value
Artikel.TextBox6.Value = Worksheets("Daten").Range("B3").Value
Artikel.TextBox41.Value = Worksheets("Daten").Range("C3").Value
Artikel.TextBox8.Value = Worksheets("Daten").Range("D3").Value
Artikel.TextBox10.Value = Worksheets("Daten").Range("E3").Value
Artikel.TextBox12.Value = Worksheets("Daten").Range("F3").Value
Artikel.TextBox14.Value = Worksheets("Daten").Range("G3").Value
Artikel.TextBox16.Value = Worksheets("Daten").Range("H3").Value
Artikel.TextBox22.Value = Worksheets("Daten").Range("I3").Value
Artikel.TextBox25.Value = Worksheets("Daten").Range("J3").Value
Case 1 ' GT 80
Artikel.TextBox4.Value = Worksheets("Daten").Range("A2").Value
Artikel.TextBox6.Value = Worksheets("Daten").Range("B2").Value
Artikel.TextBox41.Value = Worksheets("Daten").Range("C2").Value
Artikel.TextBox8.Value = Worksheets("Daten").Range("D2").Value
Artikel.TextBox10.Value = Worksheets("Daten").Range("E2").Value
Artikel.TextBox12.Value = Worksheets("Daten").Range("F2").Value
Artikel.TextBox14.Value = Worksheets("Daten").Range("G2").Value
Artikel.TextBox16.Value = Worksheets("Daten").Range("H2").Value
Artikel.TextBox22.Value = Worksheets("Daten").Range("I2").Value
Artikel.TextBox25.Value = Worksheets("Daten").Range("J2").Value
Case 2 ' GT 120
Artikel.TextBox4.Value = Worksheets("Daten").Range("A4").Value
Artikel.TextBox6.Value = Worksheets("Daten").Range("B4").Value
Artikel.TextBox41.Value = Worksheets("Daten").Range("C4").Value
Artikel.TextBox8.Value = Worksheets("Daten").Range("D4").Value
Artikel.TextBox10.Value = Worksheets("Daten").Range("E4").Value
Artikel.TextBox12.Value = Worksheets("Daten").Range("F4").Value
Artikel.TextBox14.Value = Worksheets("Daten").Range("G4").Value
Artikel.TextBox16.Value = Worksheets("Daten").Range("H4").Value
Artikel.TextBox22.Value = Worksheets("Daten").Range("I4").Value
Artikel.TextBox25.Value = Worksheets("Daten").Range("J4").Value
Case 3 ' GT 160
Artikel.TextBox4.Value = Worksheets("Daten").Range("A5").Value
Artikel.TextBox6.Value = Worksheets("Daten").Range("B5").Value
Artikel.TextBox41.Value = Worksheets("Daten").Range("C5").Value
Artikel.TextBox8.Value = Worksheets("Daten").Range("D5").Value
Artikel.TextBox10.Value = Worksheets("Daten").Range("E5").Value
Artikel.TextBox12.Value = Worksheets("Daten").Range("F5").Value
Artikel.TextBox14.Value = Worksheets("Daten").Range("G5").Value
Artikel.TextBox16.Value = Worksheets("Daten").Range("H5").Value
Artikel.TextBox22.Value = Worksheets("Daten").Range("I5").Value
Artikel.TextBox25.Value = Worksheets("Daten").Range("J5").Value
End Select
Unload Me
End Sub
Vielen Dank im voraus
Patrick