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