Daten im combobox

Forumthread: Daten im combobox
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Daten im combobox

Daten im combobox

fritz

hallo zusammen
ist sicher schon mal beantwortet worden aber ich schafffe es nicht
ich hab in der userform1 eine combox1.
in die combobox sollen nur die gefilterten daten der spalte AF aus der Tabelle (Daten1) eingelesen werden, die daten können aber auch doppelt vorkommen. Sie sollten ur einmal eingelesen werden
danke für eure unterstützung
lg fritz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Daten im combobox

Hajo_Zi
AW: Daten im combobox

Gerd

AW: Daten im combobox

12.05.2012 13:49:13

Hajo_Zi

Hallo Fritz,
schaue auf diese Seite da sin 2 Beispiele für Listbox.
http://www.hajo-excel.de/vba_userform.htm

AW: Daten im combobox

12.05.2012 15:38:34

Gerd

Hallo Fritz!

Private Sub UserForm_Activate()
Dim R As Range, objDic As Object, Z As Range, Vnt As Variant
With Worksheets("Daten")
Set R = Intersect(.Columns("AF"), .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows. _
Count - 1))
End With
Set objDic = CreateObject("Scripting.dictionary")
With objDic
For Each Z In R
If Not Z.EntireRow.Hidden Then
If Not .exists(Z.Value) Then .Add Z.Value, Z.Value
End If
Next
Vnt = .items
End With
ComboBox1.Clear
ComboBox1.List = Vnt
Set objDic = Nothing
End Sub

Gruß Gerd