Hallo Excelenzen,
Guten Abend.
Ich habe vor langer Zeit ein Macro geschrieben das in Excel 2000 läuft. Jetzt haben wir auf der Arbeit Excel 2003 (!)
Das Macro ist eine Suchfunktion, ich gebe z.B. die Zahl "3010" in einer inputbox ein. (ohne Anf-Zeichen)
In der Tabelle stehl z.B. mehrmals 3010
Die Suchfunktion bleibt im Macro in der Zeile Set Zelle hängen (Fehler 13)
Set zelle=.Find(suchen, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Do
Loop
Dann soll Excel alle gefundenen Zellen(also gleich 3010) fablich markieren.
Ich habe leider den code auf der Arbeit liegen lassen und kann diesen nur aus dem Dedächtnis posten.
Könnt ihr mir evtl. helfen?
MfG Betreuer