Find Befehl in nicht aktivem Tabellenblatt

Sub Test() Windows(sWkb).Activate Sheets("Kontenstamm").Activate Cells.Find(What:=(sBankkontoPrüf), After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
die Zelle, die du bei AFTER angibst, muss natürlich innerhalb des Bereich liegen, den du durchsuchen lässt.
Somit ist ActiveCell an dieser stelle dann nicht zulässig. In den meisten Fällen kann man diesen Parameter aber einfach weglassen, Excel setzt dann automatisch die erste Zelle des zu durchsuchenden Bereichs ein.
auch kannst du dann die gefundene Zelle nicht einfach aktivieren, weil du nur auf dem aktiven Tabellenblatt eine Zelle aktivieren kannst.
dir hier jetzt konkret weiterhelfen ist schwierig, weil man wissen müsste was du mit der gefundenen Zelle machen willst.
In der Regel schreibt man die gefundene zelle erstmal in eine Variable:

dim Zelle as Range
Set Zelle = workbooks(wbk).Sheets("Kostenstamm").cells.Find(what:=sBankkontoPrüf, Lookin:=xlvalues, ....)

wenn du sie trotzdem selektieren willst, dann nimm Application.Goto, damit kann man auch über Datei- und Blattgrenzen hinweg Zellen selektieren:

Application.Goto Workbooks(wbk).Sheets("Kostenstamm").Cells.Find(What:=sBankkkontoprüf, LookIn:=xlvalues, ....)

Gruß Daniel

Hallo Daniel,
vielen Dank für die schnelle Antwort.
Ich hatte "After" auch weggelassen, weil es mir auch unlogisch vorkam. Ich meine, es hatte keinen Erfolg. Ich hab soviel probiert gehabt, dass ich es sicher nicht mehr sagen kann. Momentan bin ich nicht "bei meiner Datei", so dass ich nicht nochmal testen kann.
Ich wundere mich eigentlich warum "Sheets("Kontenstamm").Cells.Find..." nicht die Zellen in "Kontenstamm" durchsucht. Damit ist doch eigentlich gesagt, in welchem Blatt gesucht werden soll...
Du hattetst mir ja schon bei dem ähnlich gelagerten Problem "Range nach 'Sheets.Add'" geholfen. Auch da habe ich mich gewundert, warum ich nach der grundsätzlichen Sheets-Auswahl auch bei den Columns nochmal das Sheet angeben musste damit es klappt.
So habe ich denn auch beim aktuellen Problem versucht, rund um "Cells" nochmal "Range(Sheets(...))" o.ä. einzubauen. Hat nicht geklappt.
"Application.Goto" muß ich noch testen. Ich habe gelesen, dass dieser Befehl das entsprechende Fenster auch aktiviert. Das hin und herspringen wollte ich ja gerade vermeiden.
Den gefundenen Wert in eine Variable schreiben klappt auch bei mir. Allerdings brauche ich nicht diesen Wert, sondern aus der Fundzeile den Wert 10 Spalten rechts neben der Fundstelle.
Im "normalen" Excel hätte ich "sverweis" o.ä. verwandt.
Gibt es eine Möglichkeit, aus einem nicht aktiven Workbook - aus einer dann ebenso nicht aktiven Tabelle - einen Wert zu holen?
Vielen Dank im Voraus,
Bert

if Worksheetfunction.CountIf(Sheets("Tabelle1").Columns(1), "Suchbegriff") 0 Then Wert = Sheets("tabelle1").Columns(1).Find(what:="Suchbegriff", lookat:=xlwhole, lookin:=xlvalues).Offset(0, 10).value

Beliebteste Forumthreads (12 Monate)

Find Befehl in nicht aktivem Tabellenblatt

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread