Zelle farbig je nach Zelleninhalt



Excel-Version: Excel 97
nach unten

Betrifft: Zelle farbig je nach Zelleninhalt
von: Thomas
Geschrieben am: 18.07.2002 - 20:30:03

Hallo,

vielleicht hat einer eine Lösung für folgendes Problem:
Ich möchte gerne innerhalb eines definierten Bereichs
Zellen je nach Inhalt farbig automatisch markieren.
Die Zellen werden mit Grossbuchstaben gefüllt (N, D, K, ...)
Wenn die Zelle mit N gefüllt wird, soll sie grün werden. Bei
D soll sie z.B. blau werden. Usw.
Bedingte Formatierung bringt mich nur bei 3 Varianten weiter.

Gruss,

Thomas

nach oben   nach unten

Re: Zelle farbig je nach Zelleninhalt
von: Hajo_Zi
Geschrieben am: 18.07.2002 - 20:33:52

Hallo Thomas

falls es sich um Eingaben handelt, folgender Ansatz


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   Schrift
    Dim Bereich As Range
    Dim Z
'   Bereich der Wirksamkeit
    Set Bereich = Range("B3:C20")
'   überprüfen ob mehr als eine Zelle markiert $A$1:$B$3
'   wurde mehere Zellen markiert ist wert größer 0
    If InStr(Target.Address, ":") = 0 Then
        If Intersect(Target, Bereich) Is Nothing Then Exit Sub  ' Abbruch, wenn Aktion nicht im Zielbereich
'       Kreuz entfernen
        Target.Borders(xlDiagonalDown).LineStyle = xlNone
        Target.Borders(xlDiagonalUp).LineStyle = xlNone
'       Schriftfarbe setzen
        Select Case Target.Value
            Case "1"
'               mal eine andere Variante Kreuz in Zelle
                With Target.Borders(xlDiagonalDown)
                    .LineStyle = xlContinuous
                    .Weight = xlThick
                End With
                With Target.Borders(xlDiagonalUp)
                    .LineStyle = xlContinuous
                    .Weight = xlThick
                End With
                Target.Font.ColorIndex = 0
            Case "2"
                Target.Font.ColorIndex = 2
                ' weiß
            Case "3"
                Target.Font.ColorIndex = 3
                ' rot
'           usw.
            Case Else
                Target.Font.ColorIndex = 0
        End Select
    Else
'       es wurden mehere Zellen markiert
        For Each Z In Selection
'           überprüfen ob Zelle im vorgegebenen Bereich
            If Intersect(Z, Bereich) Is Nothing Then
            Else
'               Kreuz entfernen
                Z.Borders(xlDiagonalDown).LineStyle = xlNone
                Z.Borders(xlDiagonalUp).LineStyle = xlNone
                Select Case Z.Value
'                   Select case Anweisung wie oben
                    Case "1"
                        With Z
                            With .Borders(xlDiagonalDown)
                                .LineStyle = xlContinuous
                                .Weight = xlThick
                            End With
                            With .Borders(xlDiagonalUp)
                                .LineStyle = xlContinuous
                                .Weight = xlThick
                            End With
                        End With
                        Z.Font.ColorIndex = 0
                    Case "2"
                        Z.Font.ColorIndex = 2
                        ' weiß
                    Case "3"
                        Z.Font.ColorIndex = 3
                        ' rot
'                   usw.
                    Case Else
                        Z.Font.ColorIndex = 0
                End Select
            End If
        Next Z
    End If
End Sub

Gruß Hajo

nach oben   nach unten

auch von Hajo_Zi
von: th.heinrich
Geschrieben am: 18.07.2002 - 20:40:23

hi Thomas,

folgender archivbeitrag.

https://www.herber.de/forum/archiv/76to80/t76294.htm

gruss (auch) thomas

nach oben   nach unten

Re: auch von Hajo_Zi
von: Hajo_Zi
Geschrieben am: 18.07.2002 - 20:43:48

Hallo Thomas

der neue Code löst keinen Fehler aus falls mehr als eine Zelle mit einmal ausgefüllt wird.

Gruß Hajo


nach oben   nach unten

danke fuer die info o.t.
von: th.heinrich
Geschrieben am: 18.07.2002 - 23:41:46

.

nach oben   nach unten

Re: Zelle farbig je nach Zelleninhalt
von: Thomas
Geschrieben am: 19.07.2002 - 17:09:27

Vielen Dank für die Hilfen. Hat hingehauen.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zelle farbig je nach Zelleninhalt"