Laufzeitfehler 424: Objekt erforderlich

Public Function readnotchbesser(schluessel As Variant)
Dim sarray As Variant       'Array
Dim iindex As Integer       'Zähler für Indes
Dim icells As Integer       'Anzahl Zellen
Dim icolumns As Integer     'Anzahl Spalten
Dim irows As Integer        'Anzahl Zeilen
Dim irow As Integer         'Zähler Zeilen
Dim icol As Integer         'Zähler Spalten
Dim srange As Range            'Range
Dim i As Single
i = 1
'Dim besser_notch As Variant
Set srange = Range("RatSt_Moodys_besser")
' Zellenzahl ermitteln
icells = Range("RatSt_Moodys_besser").Cells.Count
Debug.Print icells
' Spalten-/Zeilenzahl ermitteln
icolumns = Range("RatSt_Moodys_besser").Columns.Count
irows = Range("RatSt_Moodys_besser").Rows.Count
Debug.Print icolumns
Debug.Print irows
' Array über redim dimensionieren
ReDim sarray(icells - 1)
' Werte des Breichs in das Array einlesen
For icol = 1 To icolumns
For irow = 1 To irows
sarray(iindex) = srange
iindex = iindex + 1
Next
Next
Debug.Print iindex
'Abgleich eingelesener Schlüssel mit
Do Until RatSt_Moodys_besser.Range(1 & i) = schluessel
i = i + 1
Loop
Debug.Print i
readnotchbesser = Range(icolumns & i).Cells.value
Debug.Print readnotchbesser
End Function