Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten im combobox

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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten im combobox
12.05.2012 13: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige