WorksheetFunction
28.09.2005 09:39:31
Hilde
habe folgenden Code vor mir und versuche, zu verstehen:
Ich weiß, dass diese kleine Prozedur bewirkt, dass beim Öffnen des Dropdowns eine Namesliste aus einer Tabelle eingelesen wird, in der die Namen auch öfter als 1 Mal vorkommen können. Im DropDown stehen sie dann allerdings nur 1 Mal drin.
Habe versucht, etwas über die WorksheetFunction CountIf rauszukriegen; vergeblich. Was macht WorksheetFunction.CountIf genau?
Private Sub userform_initialize()
Dim x As Variant
With WS
For x = 6 To WS.[a65536].End(xlUp).Row
If WorksheetFunction.CountIf(WS.Range("c3:c" & x), WS.Cells(x, 3)) = 1 Then
cbo1_Kunde.AddItem WS.Cells(x, 3)
End If
Next
End With
End Sub
LG - Hilde
Anzeige