Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
varAusblend
As
Range
Dim
varSchalter
As
Range
If
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) = 0
Then
ActiveSheet.Columns(
"P:U"
).Hidden =
False
And
ActiveSheet.Columns(
"V:AG"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) > 0
Then
ActiveSheet.Columns(
"AD:AG"
).Hidden =
False
And
ActiveSheet.Columns(
"P:AC"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) = 0
Then
ActiveSheet.Columns(
"V:AC"
).Hidden =
False
And
ActiveSheet.Columns(
"P:U"
).Hidden =
True
And
ActiveSheet.Columns(
"AD:AG"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) = 0
Then
ActiveSheet.Columns(
"V:AG"
).Hidden =
False
And
ActiveSheet.Columns(
"P:U"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) > 0
Then
ActiveSheet.Columns(
"P:AC"
).Hidden =
False
And
ActiveSheet.Columns(
"AD:AG"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) = 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) > 0
Then
ActiveSheet.Columns(
"P:U"
).Hidden =
False
And
ActiveSheet.Columns(
"AD:AG"
).Hidden =
False
And
ActiveSheet.Columns(
"V:AC"
).Hidden =
True
ElseIf
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"HAZ"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZF"
]) > 0
And
WorksheetFunction.CountIf(Range(
"I14:I50"
), [
"EMZ"
]) > 0
Then
ActiveSheet.Columns(
"P:AG"
).Hidden =
False
Else
: ActiveSheet.Columns(
"P:AG"
).Hidden =
True
End
If
End
Sub