Liebe Mitglieder,
seit vielen Stunden grübel ich über die richtige Vorgehensweise bei meinem Makro. Ich möchte in einer Userform einen Eintrag auswählen. In der Userform sind Fälligkeiten eingetragen. Diese verändern sich täglich, sind zwar der aufsteigend sortiert, aber sind nicht fortlaufend, d.h. z.B. 1,3,7,12, 33,60,79. Durch das Makro soll die nächstkleinere Fälligkeit ausgewählt werden, die unter 70 ist. Bei dem genannten Beispiel wäre als Fälligkeit die 60 auszuwählen. Habt Ihr eine Idee, wie ich das Makro abändern muss, damit es funktioniert?
Dim i As Integer
For i = 0 To UserFormFälligkeit.ListBoxExpiry.ListCount
If UserFormFälligkeit.ListBoxExpiry.List(i) = "*69" Then
UserFormFälligkeit.ListBoxExpiry.ListIndex = i
Exit For
End If
Next i
UserFormFälligkeit.Show
|