Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wörter suchen, markieren und zählen

Wörter suchen, markieren und zählen
07.09.2023 10:48:33
Erwin
Hallo Miteinander,

in diesem thread wurde mir schon viel geholfen: https://www.herber.de/forum/cgi-bin/callthread.pl?index=1929665#1929704
Mittlerweile habe ich ein wenig dazugebastelt: https://www.herber.de/bbs/user/162706.xlsb

Die Suche erfolgt über UF; das Ergebnis wird wie folgt markiert:
Suchbegriff - rote Schriftfarbe
Zelle mit Suchbegriff - gelbe Hintergurndfarbe
Zeile mit Suchbegriff - grüne Hintergrundfarbe

Allerdings habe ich festgestellt, dass, wenn ich die Suche ein 2. mal starte, die zuvor gelb markierten Zelle mit der grünen Zeilenfarbe überschrieben wird.

Es bräuchte m.E. eine Ergänzung, dass wenn die Zelle bereits gelb ist, diese Zelle nicht mit grün überschrieben wird.

Kann hier bitte der Code angepasst werden?

Danke - Erwin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wörter suchen, markieren und zählen
07.09.2023 11:16:35
daniel
Hi
du darfst halt nicht die ganze Zeile grün färben: 
Intersect(ActiveSheet.UsedRange, xRg.EntireRow).Interior.ColorIndex = 4 'Zeile wird grün markiert

sondern musst in einer Schleife jede Zelle prüfen, ob sie nicht schon gelb ist. und wenn sie schon grün ist, muss man sie nicht auch nochmal grün färben
also erstetze die obige Zeile durch 
for each yRg in Intersect(ActiveSheet.UsedRange, xRg.EntireRow)

    select Case yRg.Interior.ColorIndex

        Case 4, 6

        Case else

            yRg.Interior.Colorindex = 4

    end Select

next


Gruß Daniel
Anzeige
AW: Wörter suchen, markieren und zählen
07.09.2023 11:31:31
Erwin
Hallo Daniel,

was soll ich dazu noch sagen :)
wieder einmal perfekt gelöst.

Vielen herzlichen Dank

Grüße - Erwin

Ich werde nachher noch ein VBA "Problem" posten... :)

303 Forumthreads zu ähnlichen Themen

Suche nach einem bestimmten Wort
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei, in der immer wieder
in zwei verschiedenen Zellen ( deren Position sich nach jeder
Aktualisierung woanders befindet ) das Wort : Gesamtergebnis
erscheint. Ich möchte jetzt gerne mittels eines VBA - Codes, daß
mir Excel die...
23.10.2008 08:33:21
Thread-ID: 1018507
5 Beiträge
Anzeige
Passworteingabe funktioniert nicht
Timmy

Liebe Excler,
ich habe vor, ein Blatt mit einem Passwort zu hinterlegen, welches man eingeben muss, wenn man einen bestimmten Button drueckt. Dafuer habe ich folgenden Code:
Private Sub PurchasingButton1_Click()
'Last Change: 01/27/2009
'starts the Process and functions of the P...
28.01.2009 15:16:00
Thread-ID: 1044583
5 Beiträge
Datenübertrag ohne Passworteingabe möglich?
Dietmar

Guten Abend zusammen!
Hat jemand eine Idee wie ich Daten in ein Passwortgeschütztes Tabellenblatt (nicht Blattschutz, um Veränderungen zu verhindern, sondern Passwortschutz, um dieses Sheet überhaupt öffnen zu können) übertragen kann, ohne das Passwort eingeben zu müssen?
Situation:
...
23.03.2009 22:04:32
Thread-ID: 1063075
6 Beiträge
Anzeige
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Wortteil in Tabelle suchen und Zelle markieren
Elmar

Hallo zusammen,
ich bräuchte mal Hilfe... ich krieg´s irgenwie selbst nicht hin.
Ich möchte ein Makro, das mir Suchbegriffe aus einer Liste ausliest (Liste z.B. in Tabelle 2 von A1 bis A10) und damit (mit den Suchbegriffen) eine andere Tabelle dann durchsucht. Wenn der Begriff (das ist...
17.08.2009 22:44:22
Thread-ID: 1096582
8 Beiträge
Online-Forum: Antwortformular erscheint nicht
Constantin

Hallo,
da ich neu im Forum bin, eine Verständnisfrage: Wenn auf einen Beitrag geantwortet (incl. Programmcode) wurde und man hierauf wiederum antworten möchte, erscheint zuweilen ein Antwortformular, in dem der Betreff bereits die entsprechende Überschrift ("AW:....") beinhaltet. Was ist, w...
30.09.2009 10:15:47
Thread-ID: 1106364
8 Beiträge
Ich suche eine Formel
Larissa

Hallo,
ich suche eine Formel, die ich mal versuche zu beschreiben:
Die Suchkriterium wird in Spalte E aus dem Tabellenblatt "Kontierung" der Mappe PP_RB_Eingang.xls gesucht.
Ein Ausschnitt der Spalte E sieht so aus, wobei immer nach den letzten 4 Ziffern gesucht werden soll.
944...
31.10.2009 13:08:03
Thread-ID: 1113490
15 Beiträge
doppelte Werte suchen und markieren
Wolfgang

Hallo,
suche eine Lösung für folgendes Problem:
Habe eine Tabelle, in der von Zelle A10 bis J1000 Daten mittels Maske eingetragen werden. Nun kommt es vor, das bei der Auswertung = Ausdruck in einigen Zeilen (immer die komplette Zeile ist doppelt, nicht eine Zelle !!!) doppelte Werte st...
26.11.2009 12:43:01
Thread-ID: 1120227
16 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
4
5
5
1
7
7
14
15
7
15
5
3
5
1
1
2
8
8
3
6
5
3
4