Zellenformatierung Listbox gleiches Format

[RPP63]

Zunächst das "etwas" geschrumpfte _Initalize()

Code:

Private Sub UserForm_Initialize()
Dim i&
With Worksheets("Prüfkontur")
  For i = 2 To .Cells(2 ^ 20, 1).End(xlUp).Row
    ListBox1.AddItem .Cells(i, 1).Text
  Next
End With
End Sub

Der Suchbutton:

Code:

Private Sub CommandButton1_Click()
Dim Fund As Variant
If ListBox1.ListIndex > -1 Then
  Fund = _
    Application.Match(CDbl(Replace(ListBox1.Text, ".", "")), _
    Worksheets("Prüfkontur").Columns("A"), 0)
  If Not IsError(Fund) Then
    MsgBox ListBox1.Text & " befindet sich in Zeile: " & Fund
  End If
End If
End Sub

Übungsdatei im Anhang.