586.419 aktive Mitglieder*
3.267 Besucher online*
Kostenfrei registrieren
Einloggen Registrieren

Excel Suchfunktion Zelle hervorheben ?

Beitrag 18.03.2011, 19:22 Uhr
RoSch
RoSch
Level 5 = Community-Ingenieur
*****
Gruppe: Mitglied
Mitglied seit: 19.02.2002
Beiträge: 607

Hallo zusammen,

habe eine Frage zum Thema Excel.

Habe eine Große Tabelle (Inventur) und suche Artikel mit der Funktion Strg+F.

Nun springt Excel in die gesucht/gefundene Zelle.

Leider geht anhand der ganzen Werte im Umfeld die Übersicht der gefundenen Zelle verloren.

Ich suche nun eine Funktion die die aktuelle Zellposition hervorhebt.

Habe auch schon folgende Makroprg im Internet gefunden

Private Sub Workbook_SheetSelectionChange

( _ByVal sh As Object, ByVal Target As Excel.Range)

Static AlteZelle As Range

If Not AlteZelle Is Nothing Then

AlteZelle.EntireRow.Interior.ColorIndex = _xlColorIndexNone

End If

Target.EntireRow.Interior.ColorIndex = 15

Set AlteZelle = Target

End Sub



Dieses Makro hinterlegt die ganze Zeile in der Farbe Grau.

Das ganze ist schon recht gut, nur gibt es hier folgendes Problem, habe ich z.B. zuvor eine farblich Markierte Zelle (z.B. Rot) dann verliert diese Zelle die Farbe Rot nach der Suchfunktion, und das will ich vermeiden.



Hat von Euch jemand eine Lösung wie man dies beheben könnte??

Gibt es evtl. die Möglichkeit diese Zellposition wie durch eine Lupe betrachtet anzuzeigen,

oder eben farblich hervorgehoben, ohne die zuvor vergebene Farbe zu löschen ??



Bin mal wieder für jeden Hilfe Dankbar



Gruß
Robert
TOP    
Beitrag 23.03.2011, 06:44 Uhr
Hexogen
Hexogen
Level 7 = Community-Professor
*******
Gruppe: Mitglied
Mitglied seit: 29.09.2004
Beiträge: 1.813

nimm doch einfach
AlteZelle.EntireRow.Interior.ColorIndex = _xlColorIndexNone
raus und sieh was dann passiert...
das bewirkt das dein ColorIndex auf None gesetzt wird ... also alles überschreibt.


--------------------
Schaut doch mal rein:
Mein Youtube Kanal


Anwendungen, Zyklen, CAD/CAM





-----------------------------------------------------------------------------------------------------------------------------
TOP    
Beitrag 23.03.2011, 08:34 Uhr
G00Z0
G00Z0
Level 5 = Community-Ingenieur
*****
Gruppe: Mitglied
Mitglied seit: 11.09.2006
Beiträge: 735

QUOTE (Hexogen @ 23.03.2011, 06:44 Uhr) *
nimm doch einfach
AlteZelle.EntireRow.Interior.ColorIndex = _xlColorIndexNone
raus und sieh was dann passiert...
das bewirkt das dein ColorIndex auf None gesetzt wird ... also alles überschreibt.



Moin,
also ich hau da in solchen Fällen ein Muster als Hintergrund drunter. Interior Pattern usw.
Idee wäre auch, einen dickeren Rahmen drum zu machen.


--------------------
Wir haben doch keine Zeit --> G00Z0

Diesem User wurde verliehen: "Das Norddeutsche Qualitätsposting Siegel"
TOP    



1 Besucher lesen dieses Thema (Gäste: 1)
0 Mitglieder: