Sub Sowas()
On Error GoTo errorhandler
Suche = CDbl(Left(InputBox("Suchkriteriunm"), 4))
Set Zeile = Columns(1).Find(WorksheetFunction.RoundDown(Suche, 1))
MsgBox Zeile.Offset(, 1 + (Suche - Zeile) * 100)
On Error GoTo 0
errorhandler:
End Sub
Sub Etwas()
On Error GoTo errorhandler
Set Zeile = Columns(1).Find(WorksheetFunction.RoundDown([A1], 1), , -4163, 1)
MsgBox Zeile.Offset(, 1 + ([A1] - Zeile) * 100)
On Error GoTo 0
errorhandler:
End Sub
Sub Formelwas()
Const c_FORMULA = "=INDEX($A$2:OFFSET($A$1,COUNTA(A:A)-1,10),MATCH($A$1,$A$2:OFFSET($A$1,COUNTA(A:A)-1,0),1),100*($A$1-ROUNDDOWN($A$1,1))+2)"
On Error GoTo errorhandler
MsgBox Application.Evaluate(c_FORMULA)
On Error GoTo 0
errorhandler:
End Sub