HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Namen in Tabelle suchen und diesen in Cyan färben

Forumthread: Namen in Tabelle suchen und diesen in Cyan färben
8 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Forumthread: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 16:58:35

sigrid

Guten Tag zusammen,
ich habe mal wieder eine Frage.
In einem Tabellen Blatt "B10-K10" möchte ich nach Namen suchen und dieses Namen
einfärben.
Z.B. suche nach Philipp dann soll der Name bzw. Zelle in Cyan eingefärbt werden.

mfg siegrid

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:12:08

SF
AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:20:25

daniel
Super, kann man...

23.09.2024 17:39:38

sigrid
Einwandfrei, habe gerade getestet !

23.09.2024 17:42:16

sigrid
AW: Einwandfrei, habe gerade getestet !

23.09.2024 17:54:41

daniel
Guten Morgen Daniel, eine toller Tipp ! -)

24.09.2024 12:48:28

sigrid
läuft einwandfrei -)

23.09.2024 19:48:55

sigrid
AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:14:26

sigrid

AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:12:08

Hola,
du markierst B10:K10.
Start - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung....

=B10="phillip"

Sollte neben "phillip" noch etwas in der Zelle stehen:

=SUCHEN("phillip";B10)

Gruß,
steve1da

AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:20:25

daniel

Hi
als feste Formatierung mit diesem Code

Sub test()

Dim Zelle As Range

With Range("B10:K10")

.Interior.Color = xlNone 'alle Zellen im Bereich auf Standardfarbe

For Each Zelle In Range("B10:K10")

    If Zelle.Text Like "Phillip" Then Zelle.Interior.Color = vbCyan

Next

End With

End Sub

Gruß Daniel

Super, kann man...

23.09.2024 17:39:38

sigrid

Hallo Daniel,
genau das !
Danke !
Kann man das bei mehreren Namen so einsetzen, funktioniert, aber
ist das Richtig ?

Sub tests()

Dim Zelle As Range



 ActiveSheet.Unprotect (getStrPasswort)

With Range("D12:j43")

.Interior.Color = xlNone 'alle Zellen im Bereich auf Standardfarbe

For Each Zelle In Range("D12:j43")

    If Zelle.Text Like "Walter" Then Zelle.Interior.Color = &HFFFFC0

Next

For Each Zelle In Range("D12:j43")

    If Zelle.Text Like "Arno" Then Zelle.Interior.Color = 13434879

Next

End With

gr sigrid

Einwandfrei, habe gerade getestet !

23.09.2024 17:42:16

sigrid

Hallo,

Sub testsww()

Dim Zelle As Range

With Range("D12:j43")

.Interior.Color = xlNone 'alle Zellen im Bereich auf Standardfarbe

For Each Zelle In Range("D12:j43")

    If Zelle.Text Like "Walter" Then Zelle.Interior.Color = &HFFFFC0

    If Zelle.Text Like "Arno" Then Zelle.Interior.Color = 13434879

Next

End With

End Sub

habe gerade getestet, klappt !

mfg sigrid

AW: Einwandfrei, habe gerade getestet !

23.09.2024 17:54:41

daniel

HI
kleine Optimierung, vermutlich gibt des noch mehr Namen und du willst dich sicherlich nicht mit den RGB-Farbwerten rumplagen.

1. Lege ein neues Tabellenblatt an (Tabelle2, kannst du natürlich nach belieben ändern)
2. schreibe in die Spalte A untereinander die Namen und färbe die Zelle mit jedem Namen in der gewünschten Farbe
3. schreibe den Code jetzt so

Sub test()

Dim Zelle As Range

Dim Farbe as Range

With Range("D12:j43")

.Interior.Color = xlNone 'alle Zellen im Bereich auf Standardfarbe

For Each Zelle In Range("B10:K10")

    Set Farbe = Sheets("Tabelle2").Columns(1).Find(what:=Zelle.Value, lookat:=xlwhole)

    if Not Farbe is Nothing then Zelle.Interior.Color = Farbe.Interior.Color

Next

End With

End Sub

damit musst du den Code nicht ändern, wenn Namen, die gefärbt werden sollen sich ändern, oder die Farbe, weil die Information, welche Farbe zu welchem Namen gehört, jetzt in der Tabelle2 hinterlegt ist und nicht mehr im Code.

Gruß Daniel

Guten Morgen Daniel, eine toller Tipp ! -)

24.09.2024 12:48:28

sigrid

läuft einwandfrei -)

23.09.2024 19:48:55

sigrid

AW: Namen in Tabelle suchen und diesen in Cyan färben

23.09.2024 17:14:26

sigrid

Hallo steve1da,
das geht leider nicht mit bedingter Formatierung, es sollte leider mit
einem Makro sein.
Ab und zu werden die Farben gelöscht und ich muss diese dann mit einem Makro
neu reinsetzen.

mfg siegrid