Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

xlWhole einschränken!?!

xlWhole einschränken!?!
01.10.2003 11:49:16
Martin Halberstadt
Hallo liebe Forumsbesucher,

kurze Frage: Falls möglich, wie kann man folgenden Teil-Code einer Suchfunktion ändern?

Code:

Set rng = wks.Cells.Find(what:=sSchnellsuche, lookat:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByColumns)

Situation:
Excel-Datei mit 5 Tabellenblättern.

Ziel:
Excel soll in Tabellenblatt 1 NICHT suchen, nur in Tabellenblatt 2-5.
Kann man das lookat verändern, oder eventuell Tabellennamen dort vergeben?

Vielen Dank für Eure Hilfe.

MfG,
Martin Halberstadt

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xlWhole einschränken!?!
01.10.2003 12:07:21
Koenig Wilhelm
Hallo Martin,
ich würde den Ansatz anders wählen, indem ich mit einer Schleife in den Tabellen 2 bis 5 suche,
als ca. so dim i as integer
for i = 2 to 5
set rng=wks(i).Cells........
next i
Habe es aber nicht getestet.
Gruss Wilhelm
Alles klar...
01.10.2003 12:09:00
Martin Halberstadt
Alles klar. Danke schön.

Werde den Ansatz gleich mal übernehmen und versuche etwas daraus zu basteln.

Schönen Tag noch.

Gruß, Martin!!!
Fehlermeldung
01.10.2003 13:07:52
Martin Halberstadt
Hallo Wilhelm,

habe versucht es so zu gestalten, leider wirft mir Excel eine Fehlermeldung aus:

Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt.

Was heißt das und was kann ich da tun?

Gruß, Martin
Anzeige
Ha...Problem gelöst. Lösung hier!!!
01.10.2003 14:59:52
Martin Halberstadt
Hab den Quelltext hingekriegt. *Freu* Vielen Dank für den Denkanstoss.

Hier der Code:

Dim rng As Range
Dim i As Integer
For i = 2 To 5
Set rng = Sheets(i).Cells.Find(what:=sSchnellsuche, LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByColumns)
"mehr Quelltext".....blablabla
Next i

Schönen Tag an alle.
MfG,
Martin Halberstadt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige