PDA

Vollständige Version anzeigen : Anzahl der Treffer einer Suche angeben


aysbaer
27.02.2008, 16:17
Hallo,

wie muss ein VBA code lauten, in dem ich mir alle Treffer einer Suche ausgeben kann?

Analog habe ich dieses probiert:
Ich habe habe alle Tabellenblätter markiert und nach einem bestimmten wort gesucht (über die Excel suche). Dann habe ich auf auf alle anzeigen geklickt und unten links im Suchfenster steht dann eine Zahl.
diese Zahl hätte ich gerne in eine Zelle geschrieben.

dies würde ich gerne mit VBA nachvollzeihen.
Es sei denn jemand hat einen anderen Tipp.

Grüße
Ays


XP
Excel 2003

ransi
27.02.2008, 16:35
Hallo Ays

Das was du da reproduzieren möchtest geht auch mit einer Schleife.
Ist etwas umfangreicher.

Alternative probiere doch mal dies:

<nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><br /><b><span style="color:#000080"; >Public</span> <span style="color:#000080"; >Sub</span> t()</b><br /><span style="color:#000080"; >Dim</span> sh <span style="color:#000080"; >As</span> Worksheet<br /><span style="color:#000080"; >Dim</span> Such<br /><span style="color:#000080"; >Dim</span> Wert <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span><br />Such = <span style="color:#800000"; >"a"</span><br /><span style="color:#000080"; >For</span> Each sh In Worksheets<br />&nbsp;&nbsp;&nbsp;&nbsp;Wert = Wert + WorksheetFunction.CountIf(sh.Cells, <span style="color:#800000"; >"*"</span> & Such & <span style="color:#800000"; >"*"</span>)<br /><span style="color:#000080"; >Next</span><br />MsgBox Wert<br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /></span></nobr>

Gesucht wird nach dem Buchstaben "a" und "A" in allen Tabellenblättern.

ransi

aysbaer
28.02.2008, 06:48
danke,
das ist genau was ich suche.
dauert tatsächlich ein wenig länger aber

passt scho

danke nochmals
habe den code 1:1 angewandt.