Texte in Zellen farblich darstellen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Texte in Zellen farblich darstellen
von: Kai
Geschrieben am: 30.06.2002 - 07:47:20

Hallo Leute,
ich möchte gerne bei meinen Turnierplänen die Mannschaften farblich kennzeichnen. Im Spielplan soll dann die betreffende Mannschaft in der ausgewählten Farbe automatisch hervorgehoben werden d.h., wenn ich die Mannschaft "XY" rot einfärbe, soll die Textfarbe im gesamten Spielplan für die Mannschaft gelten, ohne aber die Schrifthöhe oder sonstige Formate zu verändern.

Wer kann mir helfen ???

Vielen Dank im voraus!

Gruß Kai


nach oben   nach unten

Re: Texte in Zellen farblich darstellen
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 08:11:03

Hallo Kai

ich bin mal davon ausgegangen das die Mnnschaften in A1; A2 usw stehen und dort die Schriftfarbe haben. In VBA in die Tabelle


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Z
'   ü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
'       Schriftfarbe setzen
        Select Case Target.Value
            Case Range("A1")
                Target.Font.ColorIndex = Range("A1").Font.ColorIndex
            Case Range("A2")
                Target.Font.ColorIndex = Range("A2").Font.ColorIndex
            Case Range("A3")
                Target.Font.ColorIndex = Range("A3").Font.ColorIndex
'           usw.
        End Select
    Else
'       es wurden mehere Zellen markiert
        For Each Z In Selection
            Select Case Z.Value
'                   Select case Anweisung wie oben
                Case Range("A1")
                    Z.Font.ColorIndex = Range("A1").Font.ColorIndex
                Case Range("A2")
                    Z.Font.ColorIndex = Range("A2").Font.ColorIndex
                Case Range("A3")
                    Z.Font.ColorIndex = Range("A3").Font.ColorIndex
            End Select
        Next Z
    End If
End Sub

Der Code ist ein wenig länger da ich auch die Variante das mehere Zellen mit einmal gefüllt werden abgefangen habe

Gruß Hajo

nach oben   nach unten

Re: Texte in Zellen farblich darstellen
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 08:34:29

Hallo Kai

noch kleine Veränderung, falls ein Eintrag geändert wird und diese Mannschaft ist im Bereich (A1 bis) noch nicht eingetragen soll diese Manschaft bestimmt die Farbe schwarz bzw. automatisch bekommen


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Z
'   ü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
'       Schriftfarbe setzen
        Select Case Target.Value
            Case Range("A1")
                Target.Font.ColorIndex = Range("A1").Font.ColorIndex
            Case Range("A2")
                Target.Font.ColorIndex = Range("A2").Font.ColorIndex
            Case Range("A3")
                Target.Font.ColorIndex = Range("A3").Font.ColorIndex
'           usw.
            Case Else
                Target.Font.ColorIndex = 0
        End Select
    Else
'       es wurden mehere Zellen markiert
        For Each Z In Selection
            Select Case Z.Value
'                   Select case Anweisung wie oben
                Case Range("A1")
                    Z.Font.ColorIndex = Range("A1").Font.ColorIndex
                Case Range("A2")
                    Z.Font.ColorIndex = Range("A2").Font.ColorIndex
                Case Range("A3")
                    Z.Font.ColorIndex = Range("A3").Font.ColorIndex
'               usw.
                Case Else
                    Target.Font.ColorIndex = 0
            End Select
        Next Z
    End If
End Sub

Gruß Hajo

nach oben   nach unten

Bitte im Forum bleiben
von: Hajo_Zi
Geschrieben am: 30.06.2002 - 10:52:51

Hallo Kai

nur Mails auf besondere Anforderung. Deine Datei stimmt nicht mit Deiner Aufgabenstellung überein. Ist jedenfalls mein Eindruck. Schau mal im Archiv nach ob Du da nichts findet, solche Probleme wurden schon öfters im Forum behandelt.

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Texte in Zellen farblich darstellen"