ComboBox befüllen

Forumthread: ComboBox befüllen

ComboBox befüllen

Mister

Guten Morgen,
ich habe eine Tabelle mit sehr vielen Einträgen. Ich möchte eine Suchmaske mit einer Userform erstellen, was an sich kein Problem darstellt. In ComboBox1 soll der Nachname (Spalte A der Tabelle) und in ComboBox2 (Spalte B) der Vorname stehen.
Wenn ich den Nachnamen auswähle, soll ComboBox2 automatisch nur mit den Vornamen befüllt werden die zu ComboBox1 passen.
Wer kann mir auf die Sprunge helfen?
Danke und Gruß
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: ComboBox befüllen

20.03.2010 09:42:09

Gerd

Hallo Martin,
wie wäre es mit einer Combo mit zwei Spalten u. einer Textbox? für den Vornamen
des ausgewähten Eintrags der Combo?
Gruß Gerd

AW: ComboBox befüllen

20.03.2010 09:58:05

ransi

HAllo
Nehmen wir mal an deine Daten sind so organisiert:
Tabelle1

	A	B	C
1	Müller	vorname8
2	Schmidt	vorname8
3	Schneider	vorname8
4	Fischer	vorname8
5	Meyer	vorname5
6	Weber	vorname3
7	Wagner	vorname6
8	Becker	vorname7
9	Schulz	vorname8
10	Hoffmann	vorname7
11	Müller	vorname1
12	Schmidt	vorname4
13	Schneider	vorname5
14	Fischer	vorname1
15	Meyer	vorname5
16	Weber	vorname8
17	Wagner	vorname9
18	Becker	vorname8
19	Schulz	vorname2
20	Hoffmann	vorname5
21	Müller	vorname6
22	Schmidt	vorname3
23	Schneider	vorname2
24	Fischer	vorname5
25	Meyer	vorname2
26	Weber	vorname5
27	Wagner	vorname6
28	Becker	vorname5
29	Schulz	vorname4
30	Hoffmann	vorname0
31	Müller	vorname1
32	Schmidt	vorname6
33	Schneider	vorname0
34	Fischer	vorname5
35	Meyer	vorname6
36	Weber	vorname7
37

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt hast du eine Userform :Userform1
DArauf die ComboBoxen :ComboBox1 ,ComboBox2.
JEtzt ganz einfach so:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Dim Arr As Variant
Dim MyDic As Object

Private Sub UserForm_Initialize()
Dim L As Long
Set MyDic = Nothing
Arr = Sheets("Tabelle1").Range("a1").CurrentRegion
Set MyDic = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(Arr)
MyDic(Arr(L, 1)) = 0
Next
ComboBox1.List = MyDic.keys
MyDic.removeall
End Sub

Private Sub ComboBox1_Change()
ComboBox2.Clear
Dim L As Long
For L = 1 To UBound(Arr)
If Arr(L, 1) = ComboBox1.Value Then MyDic(Arr(L, 2)) = 0
Next
ComboBox2.List = MyDic.keys
MyDic.removeall
End Sub

ransi

hier ein Beispielcode...

20.03.2010 09:59:38

Tino

Hallo,
so könnte man es machen.
kommt als Code in die UserForm1 Option Explicit Private Sub ComboBox1_Change() Dim meAr(), meAR_Vorname() Dim A&, AA& 'Tabelle anpassen With Tabelle1 'bereich anpassen, hier ohne Überschrift meAr = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 2).Value2 Redim Preserve meAR_Vorname(Application.WorksheetFunction.CountIf(.Columns(1), ComboBox1) - 1) End With For A = 1 To Ubound(meAr) If meAr(A, 1) = ComboBox1 Then Redim Preserve meAR_Vorname(AA) meAR_Vorname(AA) = meAr(A, 2) AA = AA + 1 End If Next ComboBox2.ListIndex = -1 ComboBox2.List = meAR_Vorname End Sub Private Sub UserForm_Initialize() Dim oDic As Object, meAr() Dim A As Long Set oDic = CreateObject("Scripting.Dictionary") 'Tabelle anpassen With Tabelle1 'bereich anpassen, hier ohne Überschrift meAr = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 2).Value2 Redim Preserve meAr(1 To Ubound(meAr), 1 To 1) End With For A = 1 To Ubound(meAr) oDic(meAr(A, 1)) = 0 Next ComboBox1.List = oDic.keys End Sub Gruß Tino

lösche die Zeile...

20.03.2010 10:03:35

Tino

Hallo,
Redim Preserve meAR_Vorname(AA) diese ist Quatsch.
Gruß Tino

AW: ComboBox befüllen

20.03.2010 15:05:56

Mister

Danke an alle,
der Code von Tino ist perfekt!
Gruß
Martin

Beliebteste Forumthreads (12 Monate)

Forumthread: ComboBox befüllen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread