Datumsbereich in Listbox über Array ?
09.03.2005 23:39:19
Peter
ich möchte einen best. Datumsbereich (heute bis heute vor 14 Tagen) in
eine Listbox einlesen ohne den Filter zu nutzen.
Mein Versuch die Sache über ein Array zu realisieren ist kläglich gescheitert.
Wer kann helfen?
Peter
Private Sub ListDatumsbereich()
Dim arr()
Dim Counter
UserForm2.ListBox1.Clear
Counter = 4
Do Until IsEmpty(Cells(Counter, 1))
If Cells(Counter, 1) >= Date - 14 And _
Cells(Counter, 1) <= Date Then
'ReDim Preserve arr(0 To lCounter)
'arr = Cells(Counter, 1)
End If
Counter = Counter + 1
Loop
'UserForm2.ListBox1.List = arr
'UserForm2ListBox1.ListIndex = 0
End Sub