Microsoft Excel

Herbers Excel/VBA-Archiv

UserForm - Combox in Abhängigkeit füllen


Betrifft: UserForm - Combox in Abhängigkeit füllen
von: Ulf
Geschrieben am: 28.11.2018 16:26:02

Moin, moin

ich mache gerade meine ersten Gehversuche mit UserForms.
Das Befüllen der Combobox1 habe ich soweit hinbekommen.

Leider habe ich keinen Plan wie es weitergeht.
In der Combobox1 wird eine Zahl ausgewählt und die Combobox2 soll entsprechend aus Spalte G gefüllt werden.

Bsp: Combox1 "3" = Combobox2 Bereich G3:G6
Combox1 "4" = Combobox2 Bereich G7:G8
Combox1 "5" = Combobox2 Bereich G9:G14
Combox1 "6" = Combobox2 Bereich G15:G22
u.s.w bis
Combox1 "12" = Combobox2 Bereich G63:G75

Anm.
Ich habe mir Spalte E:H aus den Spalten B:D entsprechend sortiert, da ich denke, dass es einfacher ist zu programmieren.

Für eure Unterstützung bedanke ich mich im voraus.

Gruß
Ulf

http://www.herber.de/bbs/user/125725.xlsm

  

Betrifft: AW: UserForm - Combox in Abhängigkeit füllen
von: Hajo_Zi
Geschrieben am: 28.11.2018 16:38:40

Hallo Ulf,

http://hajo-excel.de/gepackt/vba/userform_combobox_abhaengig.zip

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


  

Betrifft: AW: UserForm - Combox in Abhängigkeit füllen
von: Ulf
Geschrieben am: 04.12.2018 11:05:19

Moin,

danke für die Beispiele, leider kann ich die aufgrund zu geringer VBA-Kenntnisse nicht umsetzen.
Ich habe versucht den Code an meine Tabelle anzupassen - erfolglos.
Dann habe ich noch versucht, meine Zahlen in die Bsp.Tabelle einzufügen - auch erfolglos.
Ich bekomme den Laufzeitfehler 380 - Eigenschaft RowSource konnte nicht gesetzt werden.

Könnt ihr mir bitte weiter helfen.

Gruß
Ulf


  

Betrifft: AW: UserForm - Combox in Abhängigkeit füllen
von: Ulf
Geschrieben am: 04.12.2018 11:22:24

Wer lesen kann ist klar im Vorteil.
Die Beispieltabelle von Hajo arbeitet mit Namensfeldern. Das hilft mir aber nicht weiter, weil ich als Auswahl nur Zahlen möchte. Daher glaube ich mit dem Code von Hajo nicht arbeiten zu können.

Gruß Ulf


  

Betrifft: AW: UserForm - Combox in Abhängigkeit füllen
von: Ulf
Geschrieben am: 04.12.2018 14:06:37

Na bitte, geht auch alleine. ;-)

Mein Code sieht jetzt so aus:

Private Sub UserForm_Initialize()
 Me.ComboBox1.List = Tabelle3.Range("E3:E12").Value
 Me.ComboBox2.List = Tabelle3.Range("B3:E92").Value
End Sub
Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "3"
With ComboBox2
.Clear
.List = Sheets("matrix LU").Range("G3:G6").Value
End With
Case "4"
With ComboBox2
.Clear
.List = Sheets("matrix LU").Range("G7:G8").Value
End With
Case "5"
With ComboBox2
.Clear
.List = Sheets("matrix LU").Range("G9:G14").Value
End With
'u.s.w. bis Case "12"
End Select
End Sub
Für Verbesserungen oder Alternativen bin ich trotzdem offen.

Gruß
Ulf