Filtdern mehrspaltige Listbox
10.11.2013 19:25:43
Werner
ich filtere doppelte Einträge einer 3-spaltigen Listbox heraus.
Private Sub UserForm_Activate()
'Daten aus Tabelle in Listbox einlesen
Dim advisor As String
Dim I As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Personalien.Clear
For I = 5 To Range("D1000").End(xlUp).Row
With Worksheets("Jahrestabelle")
If .Cells(I, 17).Value = "M" Then
If Not Dic.Exists(.Cells(I, 4).Value) And _
Trim(CStr(.Cells(I, 4).Value)) "" Then
Dic.Add .Cells(I, 4).Value, .Cells(I, 4).Value
Dic.Add .Cells(I, 5).Value, .Cells(I, 5).Value
Dic.Add .Cells(I, 6).Value, .Cells(I, 6).Value
End If
End If
End With
Next I
End Sub
Das funktioniert auch. Allerdings gibt er mir das gefilterte Ergebnis untereinander, sprich
Nachname
Vorname
Geburtsdatum
in der Listbox aus und nicht nebeneinander in drei Spalten.
Wie muss ich den Code ändern damit er mit das Filterergebnis in nebeneinander in drei Spalten der Listbox ausgibt.
Danke Werner