Sheets("Bridle Steel Berechnung").Select
Dim xcount As Integer
xcount = 4
Do Until Cells(xcount, 22).Value = ""
If Cells(xcount, 22) >= 110 Then
Cells(xcount, 17) = Cells(xcount, 17) + 1
End If
If Cells(xcount, 22) >= 110 Then
Cells(xcount, 17) = Cells(xcount, 17) + 1
End If
If Cells(xcount, 22) <= 85 Then
Cells(xcount, 17) = Cells(xcount, 17) - 1
End If
If Cells(xcount, 22) <= 85 Then
Cells(xcount, 17) = Cells(xcount, 17) - 1
End If
xcount = xcount + 1
Loop
Gruß,
Patrick