Office: Cells.Find >> objektvariable oder ... nicht festgelegt

Hallo,

war schon lange nicht mehr hier - > aber nun stehe ich wieder einmal vor einem Problem:


Folgender Code funktioniert beim Debuggen per Einzelschritt einwandfrei.
Wenn ich aber mein ganzes Script durchlaufen lasse bekomme ich folgenden Fehler:
"objektvariable oder with-blockvariable nicht festgelegt"

Das Script:

Code:

Das Ganze hängt wohl mit dem "SET"ten des Objekts zusammen.
Leider habe ich davon keine Ahnung >>
folglich würde ich mich über einen Tipp sehr freuen.

Gruss
Ferdinand

:)

 

Hallo Ferdinand,

in Deinem Code finde ich kein SET. Der Suchwert ist schon vorhanden?




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

 

Hallo Hajo,
vielen Dank für die schnelle Reaktion.

Ich weiss, das klingt blöd, aber ich habe überhaupt keine Ahnung wie ich soetwas angehe. Bisher habe ich mich trotz seitenlanger scripte immer um die "Set"-Geschichten gedrückt und alles anderweitig gelöst.

Was heist: Ist der Suchwert schon vorhanden?
Da brauch ich noch einen Hinweis... Aber ich denke, dass er nicht vorhanden ist, da ich ja nicht einmal weiss was gemeint ist.

Gruss
Ferdinand

 

Hallo Ferdinand,

das Forum hat schon ein klasse Suchfunktion.

Code:

 

Hallo Hajo,

mag sein, dass mein Problem schon behandelt wurde, aber wenn ich nicht weiss nach was ich genau suchen soll....

Leider komm ich mit Deinem geposteten Code nicht klar.
Wenn ich das komplette Excel-Sheet durchsuchen will bekomme ich kein Ergebnis.
Ich habe dazu Dein Script geändert, aber bis jetzt klappt es nicht.
Kannst Du evtl. netterweise mal kurz darübersehen?
Wahrscheinlich ist Range ("A14") falsch, das habe ich aus einer Macroaufzeichnung bei der ich alle Zellen markiert habe - wie bekomme ich die komplette Seite?

Code:

Gruss
Ferdinand

 

Hallo Ferdinand,

Du suchst nur in Zelle A14 (Range("A14").) ersetze das durch Cells.

Warum hinten auch A14 steht ist mir nicht klar. Mit Sprungmarken wird in VBA eigentlich nicht gearbeitet. LÖschen den TEil hinter THen und ersetze raus_hier: durch End If

 

super, vielen Dank ich habe es mit Deiner Hilfe geschafft das Script zu laufen zu bewegen!!!

Code:

Aber jetzt habe ich noch eine Frage:
Ich suche Artikelnummern aus einer Lieste mit ca. 4000 Zeilen heraus.
Es klappt zu ca. 90% -> es werden fast alle Artikelnummern gefunden.

Jetzt habe ich noch ca. 10% die nicht gefunden werden, auch wenn ich die Daten manuell sofort finde d.h. wenn ich mit strg+f arbeite und die entsprechende Artikelnummer eingebe wird sie gefunden mit dem script aber nicht.
Gibt es irgendwelche Argumente für die "FIND"-Zeile, die da helfen könnten?

Gruss
Ferdinand

 

Hallo Ferdinand,

versuche es doch mal mit dem Schalter xlValues

 

hab ich es richtig gemacht?

Code:

Bis jetzt hat sich nix geändert er findet

 

Hallo Ferdinand,
ich würde schreiben DU hast es an der falschen Stelle
mein Code
Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _
' .Cells(5753, 10), xlValues , xlWhole, , xlNext)

Dein Code müßte so lauten
Set Found = Range(Cells(1, 1), Cells(60000, 99)).Find(nummer_db, cells(60000,99),xlValues, xlWhole, , xlNext)

 

Hallo Hajo,

ich habe es so übernommen wie Du es geschrieben hast.
Jetzt dauert es ziemlich lang und am Ende habe ich immer noch nicht alle gefunden.

Leider habe muss ich jetzt das Büro verlassen.
Wenn Du erlaubst werde ich mich demnächst aber noch mal melden...

Danke auf jeden Fall!

Ferdinand

 

hallo Ferdinand,

dann lade aber eine Datei hoch. Bedenke aber der Dateiname sollte schon ein Bezug zum Problem haben.

 

Hallo Hajo,

sitze nach meinem Urlaub wieder an dem Problem.
Also das Script das ich mit Deiner Hilfe optimiert habe funktioniert zunächst einwandfrei.
Nur:
Gewisse Werte werden nicht gefunden. Wenn ich aber eben Diese Werte per Hand suche, dh. mit strg-c und strg-f finde ich sie sofort.
Hast Du noch irgend eine Idee woran das liegen könnte.
Ist bei der Suche wichtig mit welchem Typ die Spalten fomatiert wurden z.B. als Text oder als Zahl?
Mir leuchtet einfach nicht ein, wieso meine Suche, die über die Macroaufzeichnung wie folgt funktioniert:
Code:

sich von dem geschriebenem Script unterscheidet:
Code:

Gruss
Ferdinand

 

Hallo Ferdinand,

mir fällt nur auf das sich der Code z.B. in diesem Teil unterscheidet LookIn:=xlFormulas, LookAt:=xlPart,

ansonsten gibt es von meiner Seite keine neue Meinung.

 

Hallo Hajo,

vielen Dank für Deine Hilfe. Ich habe mit den Werten "gespielt" leider komme ich nicht auf die Lösung.

Ich versuche es jetzt noch mal in Herbers Forum, mal sehen, ob jemand etwas weis.

Gruss und noch mal vielen Dank.
Ferdinand

PS: Falls ich die Lösung finde werde ich das auf jeden Fall hier posten!