Hallo,

ich benötige folgende Berechnung:

Wert der Zellen von BPK2 bis BPK 660 soll festgestellt werden,

diese werden ermittelt durch den Wert in der Spalte BQT 2 bis BQT 660 und immer was in der Zelle ID2 steht.

Leider nimmt mir das System die Lösung mit den $ Zeichen nicht, gibt es hier eine Alternative?

Danke

Dim x As Long

With Worksheets("Sheet1")
For xZeile = 2 To 660

If .Cells(xZeile, "BQT").Value = "x" And _
.Cells("$ID$2").Value = "x" Then
.Cells(xZeile, "BPK").Value = "LO"
Else: .Cells(xZeile, "BPK").Value = ""

End If
Next
End With