Bestimmten Jahrgang in ComboBox einlesen
28.10.2005 20:21:52
reiner
mit folgendem Code werden Datumsangaben im Format tt-mm-yyyy im Zeitraum 01.06.2001 bis z.Zt. 30.09.2005 in cboDatum zur Auswahl eines beliebigen Datums eingelesen.
Private Sub cmdDatum_Click()
For lngx = 4 To Range("D5").End(xlDown).Row
If WorksheetFunction.CountIf(Range("D4:D" & lngx), Cells(lngx, 4)) = 1 Then
If IsDate(Cells(lngx, 4)) Then
cboDatum.AddItem Cells(lngx, 4)
End If
End If
Next
End Sub
Ich habe vor, zur Erweiterung die Jahresangaben über mehrere Optionsschaltfelder vorzuwählen; daraufhin sollen nur die Datumsangaben mit der vorgewählten Jahreszahl eingelesen werden. Im Moment fehlt mir aber noch die passende Eingebung zur Realisierung.
Kann mir jemand einen guten Tipp geben?
Gruß Reiner
Anzeige