Hallo Nadine,
Mensch Mädel, klaro liegt's daran, dammich noch mal, Du mußt schon die Daten hier genauso zeigen wise bei Dir vorliegen, argh...
Mal ne kleine Nachhilfe-Exkur. guck doch mal in den Code, da wird schließlich nach nem Klammernpaar gesucht, nu also nach Doppelpunkten, aber null Problemo, falls Dir noch mal nach was anderem is, ich hab das Suchzeichen in ne Konstante gepackt, brauchst nur ändern...
Option Explicit
Public Sub test()
Const SEARCH_CHAR As String = ": " '// <-----Dein Suchzeichen...;-)
Dim lngIndex As Long
With UserFormFälligkeit
With .ListBoxExpiry
For lngIndex = 0 To .ListCount
If CLng(Mid$(String:=.List(lngIndex), Start:=InStr(1, .List(lngIndex), SEARCH_CHAR) + 1)) >= 70 Then
.ListIndex = lngIndex - 1
Exit For
End If
Next
End With
Call .Show
End With
End Sub
Gruß,
|