Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1660to1664
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
Inhaltsverzeichnis

UserForm - Combox in Abhängigkeit füllen

UserForm - Combox in Abhängigkeit füllen
28.11.2018 16:26:02
Ulf
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
https://www.herber.de/bbs/user/125725.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm - Combox in Abhängigkeit füllen
04.12.2018 11:05:19
Ulf
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
Anzeige
AW: UserForm - Combox in Abhängigkeit füllen
04.12.2018 11:22:24
Ulf
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
AW: UserForm - Combox in Abhängigkeit füllen
04.12.2018 14:06:37
Ulf
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige