Zellenformatierung Listbox gleiches Format

[Frank-Kan]

Hallo!
Ich komme jetzt erst dazu zu antworten.
Ich habe die Antworten von Euch versucht umzusetzen.
Komme dabei aber auch nicht richtig weiter.
In der UserForm (Initialize)
Stand ursprünglich:

Code:

Dim ws As Worksheet
Dim letzteZeile As Long
Dim i As Long
Set ws = ThisWorkbook.Sheets("Prüfkontur")
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 2 To letzteZeile
Me.ListBox1.AddItem ws.Cells(i, "A").Value
Next i

In dem CommandButton in der Userform neben der ListBox steht:

Code:

Private Sub CommandButton1_Click()
'Userform5
'Konturen Zeichnung laden
'Überprüfung ob ein Wert aus der ListBox ausgewählt wurde
If Me.ListBox1.ListIndex <> -1 Then
Dim letzeZeile As Long
Dim wert As String
'Me.ListBox1 = Format(ListBox1(), "####.####.##")
Zeichnungsnummer = Me.ListBox1.Value
'Wert in Tabelle Prüfkontur Spalte A suchen.
letzteZeile = Worksheets("Prüfkontur").Cells(Worksheets("Prüfkontur").Rows.Count, "A").End(xlUp).Row
Dim zeilein_Kontur As Long

zeilein_Kontur = Application.Match(Zeichnungsnummer, Worksheets("Prüfkontur").Range("A1:A" & letzteZeile), 0)

Die Userform wurde abgeändert in :

Code:

Dim ws As Worksheet
    Dim letzteZeile As Long
    Dim i As Long
    Dim rawValue As String
    'Dim formattedValue As String
'Dim formattedValue As Long
    Set ws = ThisWorkbook.Sheets("Prüfkontur")
    letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Leert die ListBox zuerst
    Me.ListBox1.Clear

    For i = 2 To letzteZeile
        rawValue = ws.Cells(i, "A").Value
        rawValue = CStr(rawValue)
        formattedValue = Left(rawValue, 4) & "." & Mid(rawValue, 5, 4) & "." & Right(rawValue, 2)
        Me.ListBox1.AddItem formattedValue
    Next i

Die Listbox liefert jetzt die gewünschten Punkte an der richtigen Stelle.
Allerdings kommt jetzt der Fehler Typen unverträglich. (13) In dem CommandButton. Bei:
zeilein_Kontur = Application.Match(Zeichnungsnummer, Worksheets("Prüfkontur").Range("A1:A" & letzteZeile), 0) 
Was muss ich da abändern?
Vielen Dank