ComboBox füllen
17.11.2004 15:42:32
Wolfgang
Der Code liest alle Monate und Jahre die Datumsangaben in Spalte A aus.
Leider kann die WorksheetFunktion.CountIf nur gleiche Datumswerte ausschließen.
Bei mehreren unterschiedlichen Tagen eines Monats wird je der gleiche Monat und Jahr in die ComboBox geschrieben. Wie kann ich das verhindern?
Danke
Wolfgang
Sub Fuellen()
Dim lngx As Long
ComboBox1.Clear
For lngx = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & lngx), Cells(lngx, 1)) _
= 1 Then
ComboBox1.AddItem Format(Cells(lngx, 1), "mmmm yy")
End If
Next
ComboBox1.ListIndex = 0
End Sub
Private Sub UserForm_Initialize()
Worksheets("Tabelle1").Activate
Fuellen
End Sub
Anzeige