''''''''''''''''''''''DAS BITTE IN MODUL 1 einfügen''''''''''''

Sub alles_einblenden()
    Rows("1:3000").Select
    Selection.EntireRow.Hidden = False
    Range("E5").Select
End Sub


'''''''''''''DAS BITTE EDITOR DES TABELLENBLATTES EINFÜGEN''

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim aktueller_name_des_tabellenblattes As String
Dim aktuelle_spalte As Integer
Dim aktuelle_spalte_string As String
Dim abc(1 To 20) As String
aktueller_name_des_tabellenblattes = ActiveSheet.Name
Set KeyCells = Range("A1:J1") ''''''''''''''''''''''''''''''' hier !
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    aktuelle_spalte = ActiveCell.Column
    abc(1) = "A"
    abc(2) = "B"
    abc(3) = "C"
    abc(4) = "D"
    abc(5) = "E"
    abc(6) = "F"
    abc(7) = "G"
    abc(8) = "H"
    abc(9) = "I"
    abc(10) = "J"
    aktuelle_spalte_string = abc(aktuelle_spalte)
    Call SPALTEN_FILTER(aktuelle_spalte_string, aktueller_name_des_tabellenblattes, 5, 14, 1)
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SPALTEN_FILTER(spalten_buchstabe As String, name_des_blattes As String, start_ As Integer, ende_ As Integer, zeile_suchfeld As Integer)
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
Sheets(name_des_blattes).Select 'blatt auswählen
Rows(start_ & ":" & ende_).Select 'start und ende des bereichs auswählen der ausgeblendet werden soll
Selection.EntireRow.Hidden = True
suche_nach_diesem_string = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & zeile_suchfeld).Value
For k = start_ To ende_ 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 ' wenn was gefunden wurde wieder einblenden
  End If
Next k
Range("A1").Select
End Sub