Laufzeitfehler 424: Objekt erforderlich
Himmelsbach
Vielen Dank für die Hinweise, hat mir schon sehr weitergeholfen. Ich glaub die groben Sachen sollte ich nun auch gefunden haben, leider hänge ich noch bei folgender Funktion:
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
Hier erhalte ich bei der fett markierten Zeile die Fehlermeldung: Laufzeitfehler 424: Objekt erforderlich.
An dieser Stelle würde ich sehr gerne den eingelesenen Wert mit dem Bereich "RatSt_Moodys_besser" abgleichen und wenn dieser gefunden wurde, die Zeilenzahl in i merken, um dann als Ausgabewert den Zelleninhalt aus der letzter Spalte des Bereichs und der ermittelten Zeile (i) auszugeben.
Vielen Dank für Eure Hilfe.
Grüße
Susanne