suchen und 2 fach markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marco,
hört sich etwas verworren an. Also...
Du suchst manuell mit dem Suchbefehl bspw nach dem Wert XYZ, der wird gefunden und die Zelle des 1.Auftretens (abhängig von der Suchreihenfolge) ausgewählt. Das müsste im Bsp dann F1197 sein! Wie kommt dann "Hallo" in A1197? Das geht doch nur mit einer Ereignisprozedur! In der gleichen Prozedur könntest du dann auch die ausgewählte Zelle färben lassen, sonst wird das wohl nichts. Wenn es sich dabei um Worksheet_SelectionChange im Klassenmodul des betreffenden Blattes handelt, wird die ausgewählte Zelle durch die Objektvariable Target repräsentiert. Du müsstest dann an der richtigen Stelle nur noch Target.Interior.Colorindex = gewünschte_farbindexnr einfügen.
Gruß Luc :-?

Hallo Marco,
das hört sich schon ganz anders an, aber ich gehe doch weiterhin richtig davon aus, dass die Zelle in A:A mittels Suchbefehl ausgewählt wird?! Dann gibt es 4 Möglichkeiten:
1. Die Einfachvariante: Jede 2.Zeile in einer anderen Farbe darstellen - so lässt sich der evtl Lagerplatz leichter finden (evtl auch jede 2.Spalte).
2. In die per Suchen ausgewählte Zelle wird etwas eingetragen, auf das dann die bedingte Formatierung von Spalte F reagieren kann. Da ich mir kaum vorstellen kann, dass der ursprüngliche Wert hier überschrieben wdn soll, dann vielleicht Eintrag besser in sonst leerer Nachbarspalte vornehmen bzw Inhalt von A:A hierhin manuell verrücken, damit, falls mehrfaches Auftreten des Suchbegriffs in A:A möglich ist, eine neue Suche nicht wieder auf der gleichen Zelle landet.
3. Die Suche mit Auswahl beider Zellen wird vollautomatisiert und über einen Button aufgerufen (Suchmakro auf Button bzw beliebiges Autoformobjekt legen). Das zugehörige Makro enthält dann zyklisch das VBA-Pendant des Suchbefehls und eine weitergehende Behandlung der ausgewählten Zelle und der dazugehörigen in Spalte F...


{mit_Find_What:=...ausgewählte_zelle bzw Selection}.Interior.ColorIndex = {gewünschter_farbindex}
{dito1}.Offset(0, 5).Interior.ColorIndex = {dito2}

Zuvor sollten in jedem Suchzyklus beide Spalten auf Normalfarbe gestellt wdn, wenn diese Farbmarkierung nicht über alle Suchläufe erhalten bleiben soll. Außerdem muss der Startpkt der Suche von Suchlauf zu Suchlauf nach unten verschoben wdn, wenn der Suchbegriff mehrfach auftreten darf.
4. Vor der manuellen Suche wird (mittels Button) die Reaktion auf Ereignisse eingeschaltet, danach wieder ausgeschaltet (bspw mittels EventFlipFlop-Makro), damit es nicht zu unerwünschten Effekten kommt, wenn nicht gesucht wird. Die Markierung der 2.Zelle erfolgt dann über das Standard-Worksheet-Ereignis SelectionChange im Klassenmodul des Blattes, dessen Prozedur die Befehle Target.Interior.ColorIndex = {dito2} und Target.Offset(0, 5).Interior.ColorIndex = {dito2} enthalten sollte, wenn beide Zellen in der gleichen Zeile liegen (ist generelle Voraussetzung für alle 4 Vorschläge). Auch hier gilt das in 3. Gesagte zum Rückfärben der Zellen.
Viel Spaß, Luc :-?

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

suchen und 2 fach markieren

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

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread