Zeitraum

Hallo Excelfreunde,
ich habe eine Listbox auf einer userform. Diese fülle ich mit
Application.DisplayAlerts = False
With ActiveSheet.Range("A1").CurrentRegion
If .Rows.Count > 1 Then
Set mrngData = Intersect(.Cells, .Offset(1))
Set mrngData = mrngData.Resize(, mrngData.Columns.Count + 1) ' Array um eine Spalte erweitern
End If
End With
' Listbox füllen ###################################################
Dim zeilnumer As Integer
With ListBox1
.ColumnCount = mrngData.Columns.Count
.List = mrngData.Value
For zeilnumer = 0 To .ListCount - 1
.List(zeilnumer, .ColumnCount - 1) = zeilnumer + mrngData.Row ' zeilennummer in die letzte spalte schreiben
Next
End With
'######################
Application.DisplayAlerts = True
https://www.herber.de/bbs/user/108838.xlsm
Des weiteren habe noch zwei textboxen. Nun suche ich nach einer Möglichkeit wie man in den textboxen ein "von" Datum und ein "bis" datum eingibt und dann die Listbox
für diesen Zeitraum gefiltert wird. Leider finde ich kein Beispiel im netz.
Weiss jemand wie ich dies lösen könnte?
oder hat jemand ein link zu einem Code für mich. In meiner testdatei stehen die Datumswerte in Spalte A.
MFG Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() 'Sub FillList1() Dim arr() As Variant Dim iRow As Long, iCol As Long, iCounter As Long Dim Lzeile As Long, Lspalte As Long Lzeile = Range("A1").CurrentRegion.Rows.Count Lspalte = Range("A1").CurrentRegion.Columns.Count ListBox1.Clear ListBox1.ColumnCount = Lspalte + 1 ' ListBox1.ColumnWidths = "72;40;30;40;30;18;72;90;;;;;;;;100;" For iRow = 2 To Lzeile If Cells(iRow, 1).Value >= CDate(TextBox1) Then Exit For ' >= bedeutet _ datum muss grösser sein If Cells(iRow, 1).Value

Hallo Excelfreunde,
ich bekomme es einfach nicht hin.
Diese Variante würde schon gehen.
Dim arr() As Variant
Dim iRow As Long, iCol As Long, iCounter As Long
Dim Lzeile As Long, Lspalte As Long
Lzeile = Range("A1").CurrentRegion.Rows.Count
Lspalte = Range("A1").CurrentRegion.Columns.Count + 1
ListBox1.Clear
ListBox1.ColumnCount = Lspalte
Dim zeilnummer
' ListBox1.ColumnWidths = "72;40;30;40;30;18;72;90;;;;;;;;100;"
For iRow = 2 To Lzeile
For zeilnumer = 0 To .ListCount - 1
.List(zeilnumer, .ColumnCount - 1) = zeilnumer + Lspalte.Row ' zeilennummer in die letzte spalte schreiben
Next
'###################################################################
If Cells(iRow, 1).Value >= CDate(TextBox1) And Cells(iRow, 1).Value < CDate(TextBox2) Then
'If Cells(iRow, 1).Value < CDate(TextBox2) Then
'##################################################################
'If CDate(Cells(iRow, 1)) < Date Then
iCounter = iCounter
ReDim Preserve arr(1 To Lspalte, 1 To iCounter)
For iCol = 1 To Lspalte
arr(iCol, iCounter) = Cells(iRow, iCol)
Next
End If
Next
ListBox1.Column = arr
End Sub
~f~
'##############################################
Wenn ich nur in der letzten Spalte der listbox die Zeilennummer reinbekommen würde.
Leider bekomme ich es einfach nicht hin.
mein letzter versuch ist
~f~
For zeilnumer = 0 To .ListCount - 1
.List(zeilnumer, .ColumnCount - 1) = zeilnumer + Lspalte.Row ' zeilennummer in die letzte spalte schreiben
Next
dies geht aber leider auch nicht mist.
liebe grüsse thomas

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitraum

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread