Hallo Sebastian,

mit diesem Code kommt man auch mit mehr als 3-Stellige Zahlen zurecht:

Private Sub combSheets_Change()
    Dim i As Integer
    Dim k As Integer
    Dim disableChange As Boolean
    Dim selSt As String
    Dim valOld As String
    
    If Len(combsheets.Value) >= 3 Then
     
        k = ActiveWorkbook.Sheets.Count
        ReDim strWorksheetsArray(1 To k)
        For i = 1 To k
            strWorksheetsArray(i) = Sheets(i).Name
        Next i
        
        If disableChange = True Then
            disableChange = False
            Exit Sub
        Else
            
            For i = 1 To k
                selSt = InStr(1, strWorksheetsArray(i), combsheets.Value)
                
                'InStr searches a string for a substring, returns the substring position if found, or 0 if not found.  Use value to determine which text to select (highlight) in the combobox.
                
                If selSt <> 0 Then
                    With combsheets
                        valOld = .Value
                        .Value = strWorksheetsArray(i)
                        .SelStart = Len(valOld) 'selSt
                        .SelLength = Len(.Value) - selSt
                    End With
                Exit Sub
                End If
            Next i
        End If
    Else
    End If
End Sub

Der ursprüngliche Code hat  die Markierung der ergänzten Zeichen nicht korrekt gesetzt.

Bei diesem Code wird der Zuvor eingegebene Inhalt in die Variable valOld gespeichert, um mit deren Hilfe die selStart-Position auf die Länge des alten Variable setzen zu können.

Beim Testlauf kam der Code auch mit mehr als 5 Zeichen zurecht.

Getestet mit Excel 2013.

LG, Ben