Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: cells.find auf mehrere Blätter gleichzeitig

cells.find auf mehrere Blätter gleichzeitig
ptonka
Hallo zusammen,
mit dem VBA-Befehl cells.find ....... kann ich ein bestimmtes Suchkriterium auf einem Tabellenblatt finden.
Ich möchte die Suche jedoch auf 5 Tabellenblätter ausweiten.
Wie kann ich das realisieren, ohne jeweils jedes einzelne Blatt per select auswählen zu müssen und
cells.find ..... jedesmal erneut zu verwenden?
Kann ich die 5 Tabellenblätter parallel ansprechen?
Danke im Voraus,
Ptonka
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: cells.find auf mehrere Blätter gleichzeitig
16.06.2011 23:07:57
Mustafa
Hallo Ptonka,
versuch es mal so :
Sub findenübermehrereTabs()
Dim TB As Worksheet
Dim gefunden
Dim I As Integer
For Each TB In ThisWorkbook.Worksheets
gefunden = TB.Cells.Find(What:="abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Address
I = I + 1
Cells(I, 2) = gefunden
Cells(I, 1) = TB.Name
Next
End Sub

Rückmeldung ob es hilft wäre nett.
Gruß aus der Domstadt Köln.
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige