I am currently trying to create an Excel Sheet, which scans multiple rows and if 2 Cells are empty, they should be hidden. It somehow doesn’t work.

´Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
Dim Bereich As Range
Dim Zeile As Range

' Arbeitsblatt festlegen
Set ws = ThisWorkbook.Sheets("ICs")


' Bereiche für die Spalten C und D festlegen
Set Bereich = Union( _
    ws.Range("C8:D43"), _
    ws.Range("C48:D83"), _
    ws.Range("C88:D123"), _
    ws.Range("C128:D163"), _
    ws.Range("C168:D203"), _
    ws.Range("C208:D243"), _
    ws.Range("C248:D283"), _
    ws.Range("C288:D323"), _
    ws.Range("C328:D363"), _
    ws.Range("C368:D403"), _
    ws.Range("C408:D443"), _
    ws.Range("C448:D483") _
)

' Schleife durch die Zeilen im Bereich
For Each Zeile In Bereich.Rows
    ' Überprüfe, ob die Werte in den Spalten C und D leer sind
    If Zeile.Cells(1, 1).Value = "" And Zeile.Cells(1, 2).Value = "" Then
        ' Verstecke die Zeile
        Zeile.EntireRow.Hidden = True
    End If

End Sub´