Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formatierung

Forumthread: bedingte Formatierung

bedingte Formatierung
31.05.2005 16:43:39
Daniel
ich wuerde gerne eine bedingte Formatierung in einer Spalte durchfuehren, wenn in der Nachbarspalte bzw. Zelle ein bstimmtes Wort auf taucht z.B Sales.
Ich habe acht Woerter nach denen ich suchen werde und wenn ein Wort auftaucht muss der Text in der Nachbarzelle in einer bestimmten Farbe erscheinen. Ist dies uebrhaupt machbar, da Excel meines Wissens nur 3 Bedingungen bei der bedingten Formatierung zu laesst.Bin fuer jede Hilfe dankbar.
Gruss
Daniel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: bedingte Formatierung
31.05.2005 16:50:52
ransi
hallo daniel
willst du für jeden wert eine andere farbe, oder eine farbe wenn einer der 8
gesuchten begriffe auftaucht?
letzteres würde mit der bedingten formatierung funktionieren.
ersteres ginge nur mit vba.
ransi
AW: bedingte Formatierung
31.05.2005 16:58:03
Daniel
Haette gerne fuer jeden der acht Begriffe eine andere Farbe
Anzeige
AW: bedingte Formatierung
31.05.2005 18:10:07
ransi


      
hallo daniel
versuch mal dies:
Private Sub Worksheet_Calculate()
    Dim werte()
    Dim zelle As Range
    Dim i As Integer
werte = Array("a", "b", "c", "d", "e", "f", "g", "h", 1, 2, 3, 4, 5, 6, 7, 8)
'in den semikolons stehen deine suchbegriffe,
'die zahlen sind die colorindizes. musst du dir auch die eintragen die dir gefallen.
For Each zelle In Range("B1:B30") 'bereich musst du anpasssen
    For i = 0 To 7
        If InStr(1, zelle, werte(i)) > 0 Then
        zelle.Offset(0, -1).Interior.ColorIndex = werte(i + 8)
        Exit For
        'Else:
        'zelle.Offset(0, -1).Interior.ColorIndex = xlNone
        End If
    Next
Next
End Sub
ransi 
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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