Hallo,

zunächst ein freundliches Guten Tag in die Runde, denn ich bin völlig neu in diesem Forum.

Ich habe ein Makro das eine userform öffnet. Diese Userform enthält eine Combobox in der über eine Schleife alle Worksheetnamen des Workbooks geladen werden.

Die Sheets haben sehr vergleichbare Namen (Nummerierungen) vergleichbar mit ab100, ab101, ab102,... etc.

Beim Eintippen der Nummer (z.B. 102) in das Combobox-Feld, wird automatisch, ähnlich zu Google SmartSearch, der Value ab102 gefunden und kann dann per Button ausgewählt und das Sheet activated werden.

Der Code funktioniert gut für Worksheets mit 3-stelliger Nummerierung. Nun kommen aber Sheets mit 4-stelliger Nummerierung dazu. 4-stelliger Nummerierungen werden aber nicht unterstützt und ich habe es bisher nicht hinbekommen, den Code entsprechend anzupassen.

Hat von Euch jemand vielleicht eine Idee?

Hier der Code der Combobox_Change:

Private Sub combSheets_Change()
Dim i As Integer


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
            .Value = strWorksheetsArray(i)
            .SelStart = selSt
            .SelLength = Len(combSheets.Value) - selSt
        End With
    Exit Sub
    End If
  Next i
End If
Else
End If




End Sub