'Video_002) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_002) start

Sub FILTER_FUER_SPALTE_B()
    erste_zeile_der_tabelle = 12
    letzte_zeile_der_tabelle = 17
    Sheets("blatt_A").Select
    Rows(erste_zeile_der_tabelle & ":" & letzte_zeile_der_tabelle).Select
    Selection.EntireRow.Hidden = True
    Call FILTER("B", "blatt_A")
End Sub

Sub FILTER(spalten_buchstabe As String, name_des_blattes As String)
Dim aktueller_name_des_tabellenblattes As String
aktueller_name_des_tabellenblattes = ActiveSheet.Name
Dim pruefe_diesen_zellwert As String
Dim suche_nach_diesem_string As String
erste_zeile_der_tabelle = 12
letzte_zeile_der_tabelle = 17
gelbe_zeilennummer = 7
suche_nach_diesem_string = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & gelbe_zeilennummer).Value
For k = erste_zeile_der_tabelle To letzte_zeile_der_tabelle Step 1
  pruefe_diesen_zellwert = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & k).Value
  rueckgabewert = InStrRev(pruefe_diesen_zellwert, suche_nach_diesem_string, , vbTextCompare)
  If (rueckgabewert > 0) Then
    Rows(k & ":" & k).Select
    Selection.EntireRow.Hidden = False ' wieder einblende
  End If
Next k
Range("A1").Select
End Sub

Sub ALLES_EINBLENDEN()
    Rows("1:500").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub

'Video_002) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_002) ende