Aha. Kurz zur Erklärung:
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
Mit der With-Anweisung legt man einen Kontext fest. Innerhalb dieses With-Blocks, also dem Kontext, bezieht sich jeglicher Ausdruck der mit einem Punkt (.) (der Punkt wird auch Scope-Operator genannt) beginnt.
In Zeile 3 weißt du raBereich einen Bereich zu und der Bereich bezieht sich auf das Blatt Terminplan. Das gleiche gilt weiter unten mit allen angaben die .Range() lauten.
Was du meinst ist wohl:
If Worksheets("Montage Firmen").Range("b10").Text = .Range("b4").Text _
OR Worksheets("Montage Firmen").Range("b10").Text = .Range("b5").Text _
OR Worksheets("Montage Firmen").Range("b10").Text = .Range("b5").Text _
OR ...
OR Worksheets("Montage Firmen").Range("b10").Text = .Range("b12").Text _
Then
'...
End if
Hier wird dann b10 vom Blatt "Montage Firmen" mit B4, B5, B6 etc. aus "Terminplan" verglichen.
|