Отфильтруйте столбец и введите Range в качестве поля ввода

Question

Все,

Я хочу показать только те столбцы в таблице, чьи заголовки я ввожу в поле ввода.

Я также хочу использовать InputBox для выбора области, к которой должен применяться фильтр (например, строка 4).

Для этого мне бы хотелось иметь только часть заголовка столбцов, достаточную для фильтрации столбцов.

ДЛЯ ПРИМЕРА:

Если столбец имеет заголовок: eQuantum (02), тогда я хотел бы ввести только часть заголовка, независимо от его длины. (например, eQuan), а затем должны быть показаны все столбцы с этим частичным заголовком. Все остальные столбцы должны быть скрыты.

Скрипт еще не запущен.

Но вот код, насколько я понял.

Sub Spalten_Filtern_Horizontal_InputBox()
Dim Zelle As Range
Dim Bereich As Range
Dim FilterText As String
Dim Einblenden As Range

Set Bereich = Application.InputBox(prompt:="Enter Row", Type:=8)
  If Bereich Is Nothing Then
    MsgBox "Operation Cancelled"
  Else
    Bereich.Select
      End If
FilterText = InputBox("Enter Header")
For Each Zelle In Bereich
    If Zelle.Text Like FilterText Then
        If Einblenden Is Nothing Then
            Set Einblenden = Zelle
        Else
            Set Einblenden = Union(Einblenden, Zelle)
        End If
    End If
Next
Bereich.EntireColumn.Hidden = True
Einblenden.EntireColumn.Hidden = False
End Sub