Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einfärben von bestimmten Begriffen

einfärben von bestimmten Begriffen
08.10.2004 09:58:11
bestimmten
Hallo,
habe eben einen tollen Tipp von "Mario" bekommen, vielen dank dafür. Leider habe ich jetzt ein weiteres Problem. Das Einfärben von bestimmten Begriffen unter "bestimmte Formatierungen" lässt sich nur 3x wiederholen.
Mein Wunsch ist es, unterschiedlichen Bgriffen eine entsprechende Hintergrundfarbe automatisch zu geben. Je nach dem, welches Wort ich eingebe (z.B. Banane, Erdbeere oder Apfelsine), soll sich das Feld gelb, rot oder orange färben. Allerdinges habe ich bestimmt 10 verschieden Obstsorten zur Verfügung.
Danke im Voraus
Gruß aus dem Norden
Andreas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einfärben von bestimmten Begriffen
08.10.2004 10:01:03
bestimmten
Hi Andreas
schau mal im archiv. vor ein paar tagen hatte jemand die gleiche frage
Gruß
Nico
AW: einfärben von bestimmten Begriffen
bestimmten
Hallo Andreas,
gucke hier, der HaJo hat da unter VBA was passendes
http://home.media-n.de/ziplies/
Gruss
Klaus
AW: einfärben von bestimmten Begriffen
bestimmten
Hallo andreas
Vom prinzip her kannst du das so lösen:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is = "Orange"
Target.Interior.ColorIndex = 3
Case Is = "Banane"
Target.Interior.ColorIndex = 4
Case Is = "Erdbeere"
Target.Interior.ColorIndex = 5
End Select
End Sub

ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige