Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Select
Case
Target.Address
Case
"A6"
.Rows(
"40:238"
).EntireRow.Hidden =
False
Select
Case
Target.Value
Case
"Global"
.Rows(
"40:238"
).EntireRow.Hidden =
True
Case
"Deutschland/ Österreich/ Schweiz"
.Rows(
"15:38"
).EntireRow.Hidden =
True
.Rows(
"65:238"
).EntireRow.Hidden =
True
End
Select
Case
"A9"
.Rows(
"267:465"
).EntireRow.Hidden =
True
Select
Case
Target.Value
Case
"Global"
.Rows(
"267:465"
).EntireRow.Hidden =
True
Case
"Deutschland/ Österreich/ Schweiz"
.Rows(
"242:265"
).EntireRow.Hidden =
True
.Rows(
"292:465"
).EntireRow.Hidden =
True
End
Select
End
Sub