Sub jede_mit_x_markierte_zeile_ausblenden()
    Dim i As Integer
    For i = 1 To 400
        zwischenvariable = ActiveWorkbook.Worksheets("page_E").Range("A" & i).Value
        If zwischenvariable = "x" Then
            Call zeile_ausblenden(i)
        End If
    Next i
End Sub
Sub jede_mit_x_markierte_spalte_ausblenden()
    Dim i As Integer
    Call alphabet_einlesen
    For i = 1 To 400
        zwischenvariable = ActiveWorkbook.Worksheets("page_E").Range(alphabet(i) & "1").Value
        If zwischenvariable = "x" Then
            Call spalte_ausblenden(i)
        End If
    Next i
End Sub
Sub zeile_ausblenden(uebergabe_parameter As Integer)
    Rows(uebergabe_parameter & ":" & uebergabe_parameter).Select
    Selection.EntireRow.Hidden = True
End Sub
Sub spalte_ausblenden(uebergabe_parameter As Integer)
    Columns(alphabet(uebergabe_parameter) & ":" & alphabet(uebergabe_parameter)).Select
    Selection.EntireColumn.Hidden = True
End Sub



Sub spalten_einblenden()
    Columns("A:ZA").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub
Sub zeilen_einblenden()
    Rows("1:10000").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub


Sub alphabet_einlesen()
'dim alphabet(1 to 600) as string  ' --> das ist eine globale variable deren wert auch auuserhalb dieses sub's zur verfügung steht
For i = 1 To 494
    alphabet(i) = ActiveWorkbook.Worksheets("blatt_alphabet").Range("B" & i).Value
Next i
End Sub