03.12.2017, 14:08
(Dieser Beitrag wurde zuletzt bearbeitet: 03.12.2017, 14:10 von excelri.
Bearbeitungsgrund: Textfehler
)
Hallo zusammen, einen schönen 1.Advent
Nun zum Problem , ich habe eine Userform , dort eine Textbox6 wo ein Datum eingetragen wird.
Jetzt möchte ich gern nach dem Eintag, das eine Listbox2 mir alle Einträge aus der Spalte 25 (Y) anzeigt, die nur mit dem Datum
welches in der Textbox eintragen wurde . Ich bekomme in der Anzeige aber alle Einträge
Kann mir jemand helfen ? Danke
Meine Formel ist :
Private Sub UserForm_Initialize()
Dim iZeile As Long
Dim AnzArr As Long
'**** Listbox 2 Anzeige der Termine
ListBox2.ColumnCount = 1
With Worksheets("Datenkal1")
' Länge Array bestimmen
For iZeile = 2 To .Range("Y65536").End(xlUp).Row
If .Cells(iZeile, 1) > 0 Then AnzArr = AnzArr + 1
Next iZeile
' Array dimensionieren
ReDim Arr(AnzArr, 1)
' Variable zurücksetzen (Recycling)
AnzArr = 0
' Array abfüllen
For iZeile = 2 To .Range("y65536").End(xlUp).Row
If .Cells(iZeile, 1) > 0 Then
Arr(AnzArr, 0) = .Cells(iZeile, 1)
Arr(AnzArr, 0) = .Cells(iZeile, 25)
AnzArr = AnzArr + 1
End If
Next iZeile
' Array an Listbox übergeben
ListBox2.List = Arr
End With
***************************************************************
Das ist der Spalteninhalt:
00.01.00----
07.12.17-H.Storch---
00.01.00----
00.01.00----
08.12.17-Mayer---
00.01.00----
00.01.00----
07.12.17-Kahnt---
00.01.00----
00.01.00----
02.01.18-Lewandowski---
00.01.00----
Nun zum Problem , ich habe eine Userform , dort eine Textbox6 wo ein Datum eingetragen wird.
Jetzt möchte ich gern nach dem Eintag, das eine Listbox2 mir alle Einträge aus der Spalte 25 (Y) anzeigt, die nur mit dem Datum
welches in der Textbox eintragen wurde . Ich bekomme in der Anzeige aber alle Einträge
Kann mir jemand helfen ? Danke
Meine Formel ist :
Private Sub UserForm_Initialize()
Dim iZeile As Long
Dim AnzArr As Long
'**** Listbox 2 Anzeige der Termine
ListBox2.ColumnCount = 1
With Worksheets("Datenkal1")
' Länge Array bestimmen
For iZeile = 2 To .Range("Y65536").End(xlUp).Row
If .Cells(iZeile, 1) > 0 Then AnzArr = AnzArr + 1
Next iZeile
' Array dimensionieren
ReDim Arr(AnzArr, 1)
' Variable zurücksetzen (Recycling)
AnzArr = 0
' Array abfüllen
For iZeile = 2 To .Range("y65536").End(xlUp).Row
If .Cells(iZeile, 1) > 0 Then
Arr(AnzArr, 0) = .Cells(iZeile, 1)
Arr(AnzArr, 0) = .Cells(iZeile, 25)
AnzArr = AnzArr + 1
End If
Next iZeile
' Array an Listbox übergeben
ListBox2.List = Arr
End With
***************************************************************
Das ist der Spalteninhalt:
00.01.00----
07.12.17-H.Storch---
00.01.00----
00.01.00----
08.12.17-Mayer---
00.01.00----
00.01.00----
07.12.17-Kahnt---
00.01.00----
00.01.00----
02.01.18-Lewandowski---
00.01.00----