Guten Tag,
Ich brauche mal eure Hilfe bei einer VBA-Programmierung!
Ich habe folgenden Code kreiert:
Private Sub UserForm\_Initialize()
Dim xAdresse, xErste As String
Dim y As Boolean
Dim arr() As Variant
Dim rng As Range
Dim iRowU As Integer
Dim xSuche As Variant
ListBox1.Clear
With ListBox1
.ColumnCount = 4
.ColumnWidths = "2cm;2cm;2cm;10cm"
xSuche = Date 'Datum soll kleiner gleich Heute bzw. bis Heute finden!!!
Set rng = Worksheets("Erinnerungen").Cells.Find \_
(xSuche, LookIn:=xlValues)
If Not rng Is Nothing Then
With Worksheets("Erinnerungen")
xErste = rng.Address(False, False)
y = True
Do Until xAdresse = xErste
ReDim Preserve arr(0 To 4, 0 To iRowU)
arr(0, iRowU) = .Cells(rng.Row, 1)
arr(1, iRowU) = .Cells(rng.Row, 2)
arr(2, iRowU) = .Cells(rng.Row, 3)
arr(3, iRowU) = .Cells(rng.Row, 4)
iRowU = iRowU + 1
Set rng = .Cells.FindNext(after:=rng)
xAdresse = rng.Address(False, False)
Loop
xAdresse = ""
xErste = ""
End With
End If
If y = False Then
MsgBox "Kein Termin vorhanden!"
Else
ListBox1.Column = arr
End If
End With
End Sub
Mein Problem ist, ich möchte gerne die Daten bis zum heutigen Datum aus der Liste suchen! Nur dummerweise sucht mir mein Code nur die Daten von Heute. Ich weiß, dass ich die Programmierung von „xSuche“ ändern muss, aber alles was ich bis jetzt ausprobiert habe führte nicht zum Erfolg!! Drum hoffe ich das einer eurer schlauen Köpfe mir weiter helfen kann.
Vielen Dank schonmal im voraus!
. Danke