Sub Zeilen_ausblenden()
Const Str_Zellenname_EingegebenerWert As String = "B3"
Const Str_Zellenname_WertObenLinks As String = "B10"
Const Str_Zellenname_WertUntenRechts As String = "J200"
Dim Lng_ErsteZeile As Long
Lng_ErsteZeile = Range(Str_Zellenname_WertObenLinks).Row
Dim Lng_ErsteSpalte As Long
Lng_ErsteSpalte = Range(Str_Zellenname_WertObenLinks).Column
Dim Lng_LetzteZeile As Long
Lng_LetzteZeile = Range(Str_Zellenname_WertUntenRechts).Row
Dim Lng_LetzteSpalte As Long
Lng_LetzteSpalte = Range(Str_Zellenname_WertUntenRechts).Column
Dim Lng_LC1 As Long
Dim Lng_LC2 As Long
For Lng_LC1 = Lng_ErsteZeile To Lng_LetzteZeile
For Lng_LC2 = Lng_ErsteSpalte To Lng_LetzteSpalte
If Cells(Lng_LC1, Lng_LC2).Value = Range(Str_Zellenname_EingegebenerWert).Value Then
Cells(Lng_LC1, Lng_LC2).EntireRow.Hidden = True
Exit For
End If
Next Lng_LC2
Next Lng_LC1
End Sub
Sub Zeilen_einblenden()
Const Str_Zellenname_WertObenLinks As String = "B10"
Const Str_Zellenname_WertUntenRechts As String = "J200"
Range(Str_Zellenname_WertObenLinks & ":" & Str_Zellenname_WertUntenRechts).EntireRow.Hidden = False
End Sub