VBA Search Makro

Hallo,
bin in Bereich VBA noch ein Neuling, habe heute damit begonnen.
Benötige ein Makro, dass mir aus einer Excel Tabelle, alle Werte einer bestimmten Person raussucht.
In meiner Tabelle sind etwa 150 Zeilen und 26 Spalten.
Die Spalte Q ist für die Suche ausschlaggebend. Wenn die Person Meier in Spalte Q gefunden wird, muss die Zelle markiert werden und die Suche fortgesetzt werden. Wenn Meier in einer weiteren Zeile, der Spalte Q, gefunden wird, sollen beide "Funde" markiert werden usw..
Habe da folgendes Makro geschrieben, dass jedoch bei einem erneuten Fund in Spalte Q die forangegangene Markierung verwirft.
_____________________________________________________________________________


Sub ProvisionsRechner()
'Provision
'Erstellt von .... am 19.08.2005
Sheets("Ausgangstabelle").Select
Cells.Find(What:="Meier", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

_____________________________________________________________________________
1. Wie kann ich mein Makro so veändern, dass alle Funde "Meier" markiert bleiben bzw. für eine übergabe an eine zweite Tabelle gespeichert bleiben.
2. Wie oben beschrieben besteht ja meine Ausgangstabelle nicht nur aus der Spalte Q, sondern auch aus 25 weiteren Spalten.
Nun benötige ich zu dem Suchvorgang(siehe oben) weitere spezifische Informationen zu Herrn Meier. Wie kann ich mit einem weiteren Befehl mit Bezug zu Meier und der entprechenden Zeile Daten einlesen und an eine zweite Tabelle übergeben?
Wenn die zweite Frage zu Aufwändig ist, bitte wenigstens die erste versuchen zu lösen.
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim rng As Range Sheets("Ausgangstabelle").Select rng = Sheets(1).Range("Q:Q").Find(What:="Meier", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False) Do 'Hier diversen Code zum kopieren der Daten einfügen rng = Sheets(1).Range("Q:Q").FindNext Loop Until rng Is Nothing Gruß Ingolf

Dim rng As Range Sheets("Ausgangstabelle").Select Set rng = Sheets(1).Range("Q:Q").Find(What:="Meier", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False) Do 'Hier diversen Code zum kopieren der Daten einfügen Set rng = Sheets(1).Range("Q:Q").FindNext Loop Until rng Is Nothing

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread