z.B. November 04
Dies soll möglich sein mit DatePart("m",Range("A1").Value) bzw. "y"
Leider reichen meine minimalen VBA-Kenntnisse nicht aus dies umzusetzen. Mein Makro liefert nicht mal den Monat.
Danke
Wolfgang
Sub Fuellen()
Dim lngx As Long
ComboBox1.Clear
For lngx = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(DatePart("m", Range("A1:A99") & lngx), Cells(lngx, 1).Value) _
= 1 Then
ComboBox1.AddItem Cells(lngx, 1).DatePart("m", lngx).Value
End If
Next
ComboBox1.ListIndex = 0
End Sub
Private Sub UserForm_Initialize()
Worksheets("Tabelle1").Activate
Fuellen
End Sub