Office: keine doppelten einträge in listenfeld

hallo zusammen,

ich fülle momentan ein listenfeld mit folgendem Code

PHP:

         Private Sub UserForm_Initialize()
With Me
For i = 1 To 100
datum = Tabelle2.Cells(i, 1)
If datum <= Now Then
.ListBox1.AddItem Tabelle2.Cells(i, 2)
End If
Next i
End With
End Sub


:)

 

Hi Fred,

eine Möglichkeit.

Private Sub UserForm_Initialize()
Dim objDic As Object
Dim intIndex As Integer, strDate As String

Set objDic = CreateObject("Scripting.Dictionary")

On Error Resume Next

For intIndex = 1 To 100
strDate = Tabelle2.Cells(intIndex, 1).Text
If strDate <= Now Then
objDic.Add strDate, strDate
End If
Next

On Error GoTo 0

ListBox1.List = objDic.items

Set objDic = Nothing
End Sub

 

Moin, mxfred,

die Tabellefunktion Zählenwenn in VBA anwenden und Ausdrücke nur hinzufügen, wenn 1 zurückgeliefert wird:

Code: