AW: Problem beim Filtern erledigt
19.10.2018 11:43:39
Peter
Hallo Daniel,
Du hast mir bereits bei der Erstellung einer UF-Listbox erfolgreich geholfen.
Jetzt würde ich gerne diese zum Filtern der Datumswerte verwenden.
Das nachstehende Makro wurde von Dir erstellt:
Private Sub userform_initialize()
Dim i As Long
Dim str, ii, arr, str2, maxlen, LC
maxlen = 35
With ListBox1
.Clear
.ColumnCount = 8 '8Spalten erforderlich für Zeilen
' .ColumnWidths = "3cm;6cm;3cm;3cm;3cm;3cm" 'bei 6 Spalten werden alle 8 angezeigt
.ColumnWidths = "3cm;6cm;3cm;3cm;3cm;3cm;0cm;0cm" 'durch letzte beide 0cm werden die _
beiden letzten Spalten ausgeblendet
For i = 9 To Cells(Rows.Count, "B").End(xlUp).Row
LI = i - 9
str = Cells(i, 3)
.AddItem
LC = .ListCount - 1
.List(LC, 0) = Cells(i, 2) 'SpalteA in Spalte1
.List(LC, 1) = Cells(i, 3) 'Original-Text speichern
.List(LC, 2) = Cells(i, 4) 'SpalteD in dritte Spalte3
.List(LC, 3) = Format(Cells(i, 5), "#,###.00 ") 'SpalteE in dritte Spalte4
.List(LC, 4) = Format(Cells(i, 6), "#,###.00 ") 'SpalteF in dritte Spalte5
.List(LC, 5) = Format(Cells(i, 7), "#,###.00 ") 'SpalteG in dritte Spalte6
.List(LC, 6) = LI 'Zeilen-Nr speichern
.List(LC, 7) = Cells(i, 3) 'Original-Text speichern
str = Cells(i, 3)
If i > 9 Then
If str = "" Then str = " "
arr = Split(str, " ")
str2 = arr(0)
For ii = 1 To UBound(arr)
If Len(str2 & arr(ii)) + 1
Hier möchte ich es gerne haben, dass bei Auswahl von TB Anfang-End-Datum die Listbox entsprechend gefüllt wird.
In einem späteren Prozess werden es jedoch 9 bis 11 Spalten sein. Das Problem ist jedoch bei AddItem ist bei 10 Spalten Schluss.
Aber dies ist heute nicht von Bedeutung.
Gruss
Peter