Objektvariable nicht zugewiesen
21.12.2020 10:11:38
PaLa
ich bin neu hier, habe aber schon lange die Beiträge in diesem Forum gelesen.
Nun stehe ich selber vor einem Problem, das wahrscheinlich nicht groß ist, welches ich aber leider nicht entschlüsselt bekomme.
Ich habe ein Array ar() mit ca. 30.000 Zahlen. Diese liegen auf den Indizies ar(1, 1) bis ar(1, 30000).
Nun möchte ich folgendes:
Ich möchte, dass für die erste Zahl im Array in einer anderen Liste die identische Zahl gefunden wird.
Dabei benötige ich die Zeile, in der die identische Zahl gefunden wurde.
Die Zeile ist insofern benötigt, weil ich in einer anderen Spalte (aber in der gleichen Zeile) eine Zahl eintragen möchte.
Meine Lösung war folgendermaßen:
(bekomme leider einen Objektvariable nicht festgelegt (Fehler 91) Fehler)
For i = 1 To rcv
Set cell = Range("A2:A" & rc).Find(ar(i, 1), Lookat:=xlWhole)
If cell = ar(i, 1) Then
' Cells(cell.Row, 6) = "1"
Range("F" & cell.Row, "F" & cell.Row).Value = "1"
'Set cell = Nothing
Else
'Set cell = Nothing
End If
Next
Bei set cell durchsuche ich den Bereich nach genau der ersten Zahl im Array.
Ich habe einiges probiert, weiß nun leider nicht weiter.
Lasst euch nicht vom If Else irritieren, das war nur für meine Versuche, weil ich nicht weiter wusste.
Habe schon durch den Debugger gesehen, wenn der Fehler auftritt besitzt cell den Wert Nothing.
Fällt jemandem eine einfachere Methode ein oder weiß, woran der Fehler liegen könnte?
Ich möchte, dass die ganzen Werte im Array in dem anderen Bereich gefunden werden.
Deshalb habe ich die For Schleife eingebaut.
Bei weiteren fragen einfach schreiben :)