Suchfunktion mit dem extra Dreh

Hallo ihr Lieben,
ich hätte mal noch eine (vermeintliche) Herausforderung für die Profis.
Ich möchte gerne eine Suchfunktion per Makro.
Klar - gibts hier in diversen Posts schon.
Meine sollte allerdings einen Zusatzeffekt haben, die mir nicht so recht gelingen will.
Ich möchte gern, dass das aktive Tabellenblatt nach Zeilen durchsucht wird, welche der momentan ausgewählten entsprechen.
Diese sollen dann alle! farbig hervorgehoben werden.
Die bisherige Suche hat mich leider nur zu Ansätzen gebracht die alle Duplikate löschen oder nach einem gefundenen Ergebnis aufhören.
Vielleicht denke ich ja zu kompliziert oder nicht kreativ genug :D
Anregungen und/oder Hilfe wäre toll.
Mit freundlichen Grüßen,
JK
PS : ich finde das Forum hier toll und komme auch gerne auf euch zurück, würde mir dennoch gerne parallel selbst noch bessere VBA skills aneignen. Gibt es irgendwo nen Guide o.ä. mit dem man etwas gezielter voran kommt als durch "learning by doing"?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FindRange() Dim xRg As Range Dim xFRg As Range Dim xStrAddress As String Dim xVrt As Variant xVrt = Application.InputBox(prompt:="Search:") If xVrt "" Then Set xFRg = ActiveSheet.Cells.Find(what:=xVrt) If xFRg Is Nothing Then MsgBox prompt:="Cannot find this value" Exit Sub End If xStrAddress = xFRg.Address Set xRg = xFRg Do Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg) Set xRg = Application.Union(xRg, xFRg) Loop Until xFRg.Address = xStrAddress If xRg.Count > 0 Then xRg.Interior.ColorIndex = 8 xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Buttons:=vbQuestion + vbOKCancel) If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone End If End If End Sub

Hallo Raimund (und der Rest :D)
danke schonmal für deine Lösung.
Sie ist fast was ich gesucht habe! ^^'
Beim nochmal durchlesen habe ich gemerkt, dass ich mich vielleicht etwas missverständlich ausgedrückt habe.
Du hast mir ein eigenes Suchfenster gebastelt- das wollte ich aber eigentlich umgehen.
Ich wähle die besagte Zeile aus (aka. "Selection.") und würde mir dann das Makro auf eine Tastenkombination legen um per Strg+X alle Zellen zu färben die der Auswahl(die eine, angeklickte Zelle) entsprechen.
Das 2. Fenster um die Entscheidung Rückgängig machen zu können war ein nette Gedanke. Den Teil des Makros habe ich aber frech weg rationalisiert.
Im Geiste des "schnell & effizient arbeiten" werde ich mir das Makro einfach ein zweites mal auf eine Kurztaste legen und den Farbcode auf "2" Stellen wenn ich die Zellen wieder entfärben möchte.
Mit freundlichen Grüßen,
JK

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchfunktion mit dem extra Dreh

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread