Sub Button3_Click()
Dim a, b, s, k, i As Integer
Dim memory As String
a = Worksheets("Pick Sheet").Cells(8, 8)
On Error GoTo ende
b = InputBox("Please, enter Number")
s = a + b
Worksheets("Connector Lookup").Cells(Worksheets("Pick Sheet").Cells(30, 4), 10) = s
// Von hier abwaerts
For i = 2 To 2452
If Worksheets("Connector Lockup").Range("M" & i).Value <= 0 Then
memory = Worksheets("Connector Lockup").Range("N" & i).Value
End If
Worksheets("Pick Sheet").Select
Worksheets("Pick Sheet").Range("J" & k).Value = memory
k = k + 1
Next i
ende:
End Sub