Also noch Mal: hier der komplette Code. Ich möchte um Entschuldigung bitten, wenn ich gegen hier forumsübliche Regeln verstoßen habe oder der Code an mancher Stelle zu umständlich formuliert ist. Ich bin quasi ein VBA-Greenhorn, aber gerne bereit zu lernen.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim varAusblendVerantwortlicher As Range
    Dim varSchalterVerantwortlicher As Range
    Dim varAusblendVertreter1 As Range
    Dim varSchalterVertreter1 As Range
    Dim varAusblendVertreter2 As Range
    Dim varSchalterVertreter2 As Range
    Dim varEinblendLux As Range
    Dim varEinSchalterLux As Range
    Dim varAusblendLux1 As Range
    Dim varAusblendLux2 As Range
    Dim varAusblendLux3 As Range
    Dim varAusblendLux4 As Range
    Dim varAusblendLux5 As Range
    Dim varAusblendLux6 As Range
    Dim varAusblendLux7 As Range
    Dim varAusSchalterLux As Range
    Dim varAusblendVertreter3 As Range
    Dim varSchalterVertreter3 As Range
    
   
    Set varAusblendVerantwortlicher = ActiveSheet.Rows("34")
    Set varSchalterVerantwortlicher = ActiveSheet.Cells(34, 10)

    If varSchalterVerantwortlicher.Value = "x" And varAusblendVerantwortlicher.Hidden = True Then
        varAusblendVerantwortlicher.Hidden = False
    Else
        If varSchalterVerantwortlicher.Value <> "x" And varAusblendVerantwortlicher.Hidden = False Then
            varAusblendVerantwortlicher.Hidden = True
        End If
    End If
   
    Set varAusblendVertreter1 = ActiveSheet.Rows("41")
    Set varSchalterVertreter1 = ActiveSheet.Cells(41, 10)

    If varSchalterVertreter1.Value = "x" And varAusblendVertreter1.Hidden = True Then
        varAusblendVertreter1.Hidden = False
    Else
        If varSchalterVertreter1.Value <> "x" And varAusblendVertreter1.Hidden = False Then
            varAusblendVertreter1.Hidden = True
        End If
    End If
    
    
    Set varAusblendVertreter2 = ActiveSheet.Rows("48")
    Set varSchalterVertreter2 = ActiveSheet.Cells(48, 10)

    If varSchalterVertreter2.Value = "x" And varAusblendVertreter2.Hidden = True Then
        varAusblendVertreter2.Hidden = False
    Else
        If varSchalterVertreter2.Value <> "x" And varAusblendVertreter2.Hidden = False Then
            varAusblendVertreter2.Hidden = True
        End If
    End If
    
    Set varEinblendLux = ActiveSheet.Rows("50:55")
    Set varEinSchalterLux = ActiveSheet.Cells(34, 11)
    Set varAusblendLux1 = ActiveSheet.Rows("18")
    Set varAusblendLux2 = ActiveSheet.Rows("22")
    Set varAusblendLux3 = ActiveSheet.Rows("26")
    Set varAusblendLux4 = ActiveSheet.Rows("29")
    Set varAusblendLux5 = ActiveSheet.Rows("36")
    Set varAusblendLux6 = ActiveSheet.Rows("43")
    Set varAusblendLux7 = ActiveSheet.Rows("49")
    Set varAusSchalterLux = ActiveSheet.Cells(34, 11)

    If varEinSchalterLux.Value = "x" And varEinblendLux.Hidden = True Then [3. Vertreter einblenden]
        If varAusblendLux1.Hidden = False Then
           varAusblendLux1.Hidden = True
        End If
        
        If varAusblendLux2.Hidden = False Then
           varAusblendLux2.Hidden = True
        End If
        
        If varAusblendLux3.Hidden = False Then
           varAusblendLux3.Hidden = True
        End If
        
        If varAusblendLux4.Hidden = False Then
           varAusblendLux4.Hidden = True
        End If
        
        If varAusblendLux5.Hidden = False Then
           varAusblendLux5.Hidden = True
        End If
        
        If varAusblendLux6.Hidden = False Then
           varAusblendLux6.Hidden = True
        End If
        
        If varAusblendLux7.Hidden = False Then
           varAusblendLux7.Hidden = True
        End If
        varEinblendLux.Hidden = False
        
        Set varAusblendVertreter3 = ActiveSheet.Rows("55")
        Set varSchalterVertreter3 = ActiveSheet.Cells(55, 10)

        If varSchalterVertreter3.Value = "x" And varAusblendVertreter3.Hidden = True Then
            varAusblendVertreter3.Hidden = False
            
        Else
            If varAusblendVertreter3.Hidden = False Then
            varAusblendVertreter3.Hidden = True
            End If
        End If
            
        [If varSchalterVertreter3.Value <> "x" And varAusblendVertreter3.Hidden = False Then]
        [    varAusblendVertreter3.Hidden = True]
        [End If]
             
    Else: [3. Vertreter ausblenden]
        If varEinSchalterLux.Value <> "x" And varEinblendLux.Hidden = False Then
            If varAusblendLux1.Hidden = True Then
                varAusblendLux1.Hidden = False
            End If
            If varAusblendLux2.Hidden = True Then
                varAusblendLux2.Hidden = False
            End If
            If varAusblendLux3.Hidden = True Then
                varAusblendLux3.Hidden = False
            End If
            If varAusblendLux4.Hidden = True Then
                varAusblendLux4.Hidden = False
            End If
            If varAusblendLux5.Hidden = True Then
                varAusblendLux5.Hidden = False
            End If
            If varAusblendLux6.Hidden = True Then
                varAusblendLux6.Hidden = False
            End If
            If varAusblendLux7.Hidden = True Then
                varAusblendLux7.Hidden = False
            End If
            varEinblendLux.Hidden = True
        End If
        
    End If
       
End Sub