With
Worksheets(
"Terminplan"
)
.Columns(
"A:B"
).Hidden =
False
Set
raBereich = .Range(
"B1:B"
& .Cells(.Rows.Count,
"B"
).
End
(xlUp).Row)
For
Each
raZelle
In
raBereich.SpecialCells(xlCellTypeVisible)
If
raZelle.Text = Worksheets(
"Montage Firmen"
).Range(
"b10"
).Text
Or
raZelle.Text = .Range(
"b10"
).Text _
Or
raZelle.Text = .Range(
"b4"
).Text
Or
raZelle.Text = .Range(
"b5"
).Text
Or
raZelle.Text = .Range(
"b6"
).Text _
Or
raZelle.Text = .Range(
"b7"
).Text
Or
raZelle.Text = .Range(
"b8"
).Text
Or
raZelle.Text = .Range(
"b9"
).Text _
Or
raZelle.Text = .Range(
"b10"
).Text
Or
raZelle.Text = .Range(
"b11"
).Text
Or
raZelle.Text = .Range(
"b12"
).Text
Then