Jürgen Diedmann
15.05.10, 17:43 Uhr
|
Hallo zusammen!
Ich möchte in einer Listbox nur Daten anzeigen lassen, welche ich mit einem Datumsbereich von... bis... zuvor angebe. Wer hat eine Idee?
Jürgen Diedmann
|
Volker Jung
14.06.10, 16:15 Uhr
|
Hallo Herr Diedmann,
das klingt nach einer abhängigen Gültigkeitsliste.
Hilft Ihnen dieser Tipp weiter:
http://www.redmark.de/excel/newsDetails?newsID=1270653323.06&Subarea=News&chorid=0057679202
Gruß
Volker Jung
|
Jürgen Diedmann
16.06.10, 19:30 Uhr
|
> Hallo Herr Diedmann,
>
> das klingt nach einer abhängigen Gültigkeitsliste.
>
> Hilft Ihnen dieser Tipp weiter:
>
> http://www.redmark.de/excel/newsDetails?newsID=1270653323.06&S
> ubarea=News&chorid=0057679202
>
> Gruß
>
> Volker Jung
Hallo Herr Jung!
So wollte ich das haben.
Es funktioniert. Trotzdem Danke.
Private Sub UserForm_Initialize()
Dim i As Long
Dim k As Long
Dim m As Long
On Error Resume Next
arr = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))
ReDim arrF(1 To UBound(arr, 2), 1 To 1)
For i = 1 To UBound(arr)
If arr(i, 4) >= CDate(Erfassung.Date_Übersicht.Value) Then
m = m + 1
For k = 1 To UBound(arr, 2)
ReDim Preserve arrF(1 To UBound(arr, 2), 1 To m)
arrF(k, m) = arr(i, k)
Next
End If
Next
If Not IsEmpty(arrF) Then
ListBox1.ColumnCount = UBound(arrF)
ListBox1.Column = arrF
End If
Sheets("Einsatz").Activate
'i = ActiveSheet.UsedRange.Rows.Count
With Übersicht.ListBox1
.ColumnCount = 17
'.ColumnHeads = True
'.RowSource = "Einsatz!A2:z" & i
.ColumnWidths = "1cm;1cm;0cm;2,5cm;2,5cm;1cm;5cm;4cm;3cm;0cm;0cm;0cm;0cm;0cm;0cm;2cm;4cm"
End With
|
Wissen
