Fehler in Makro

Sub calc()
Dim Index_col As Integer
Dim comp_nr As Integer
Dim announcement As Date
Dim Index_row As Integer
Dim i As Integer
Dim returns As Double
Dim col_act As Integer
col_act = 1
For Index_col = 1 To 256 Step 1
comp_nr = Tabelle10.Cells(1, 3)
announcement = Tabelle10.Cells(8, 3)
For Index_row = 1 To 2000 Step 1
If Tabelle10.Cells(Index_row, 1) = announcement Then
returns = Tabelle10.Cells(Index_row, Index_col).Value
Cells(1, 1).Value = returns
End If
Next
Next
End Sub