Ansatzproblem

B C 1 Wortlänge 5 2 gesuchter String a 3 Position des String 2 4 Hund   5 Katze   6 Elefant   7 Fledermaus   8 Ameise   9 Eidechse   10 Katzenhai   11 Maus

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Zusätzlich befinden sich auf dem Tabellenblatt noch 2 CommandButtons mit dieser Funktionalität:

In Tabelle1:
Private Sub CommandButton1_Click()
  Call Begriff_suchen
End Sub
Private Sub CommandButton2_Click()
  Rows.RowHeight = 13
End Sub
In Modul1:
Option Explicit
Sub Begriff_suchen()
  Dim intLaenge As Integer
  Dim intPos As Integer
  Dim lngC As Long
  Dim lngLRow As Long
  Dim strSuchstring As String
  Dim wks As Worksheet
  
  Application.ScreenUpdating = False
  Set wks = Worksheets("Tabelle1")
  
  With wks
    intLaenge = .Range("C1")
    intPos = .Range("C3")
    strSuchstring = .Range("C2")
    lngLRow = .Cells(Rows.Count, 2).End(xlUp).Row
  
    For lngC = 4 To lngLRow
      If Len(.Cells(lngC, 2)) <> intLaenge Then
        .Rows(lngC).RowHeight = 0
      Else
        If InStr(1, LCase(.Cells(lngC, 2).Value), LCase(strSuchstring)) <> intPos Then
          .Rows(lngC).RowHeight = 0
        End If
      End If
    Next
  End With
  Application.ScreenUpdating = True
End Sub 
In C1 bis C3 wird vorgegeben, was gefiltert werden soll.
Das klappt auch prima.
Nun wollte ich das etwas universeller gestalten.
Da gibt es ja erst mal 6 Sinn machende Möglichkeiten:

mit Länge mit Suchstring mit Pos   mit Länge mit Suchstring ohne Pos   mit Länge ohne Suchstring ohne Pos   ohne Länge mit Suchstring mit Pos   ohne Länge mit Suchstring ohne Pos   ohne Länge ohne Suchstring ohne Pos =Komplette Liste