ComboBox befüllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

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

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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox befüllen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread