Zeile der aktiven Zelle farbig formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.CurrentRegion.Interior.Color = 14277081 'alles grau zl = Target.Row Set Rng = Range("A" & zl & ":M" & zl) 'Spalten der Zeile festlegen Rng.Interior.Color = 65535 'Zeile gelb Target.Interior.Color = 11854022 ' Zelle grün End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Bedingte Formatierung einstellen: 'mit Formel =oder(Zeile()=ZE;Spalte()=SP) Application.ScreenUpdating = False ActiveWorkbook.Names.Add Name:="SP", RefersToR1C1:=Target.Column ActiveWorkbook.Names.Add Name:="ZE", RefersToR1C1:=Target.Row Application.ScreenUpdating = True End Sub

Hallo UweD und MCO,

erst einmal vielen Dank für die schnellen Antworten. Ich habe beides ausprobiert und dabei festgestellt, dass ich meine Tabelle mal besser erklärt hätte. Ich habe mal ein Muster als Anlage beigefügt.

Die Tabelle hat Spaltenüberschriften und Zeilen-Anmerkungen. Die Bereiche, in denen später Werte eingegeben werden sollen, sind grün formatiert. Die aktive Zeile soll grau hinterlegt werden.

Beispiel: Ist D9 die aktive Zelle, dann soll die Zeile von B9 bis N9 grau hinterlegt sein. D9 selbst bleibt/wird grün

Wird eine andere Zeile aktiv, dann nimmt die alte Zeile wieder seine alte Formatierung an

Die Lösung von UweD funktioniert für den relevanten Bereich (von C2 bis N20), hinterlegt aber Zeile UND Spalte mit grau
Die Lösung von MCO hinterlegt den gesamten Bereich von A1 bis N20 farbig (also auch Spaltenüberschriften und Zeilen-Anmerkungen)

Habt ihr noch weitere Ideen ?

Grüße

Michael

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RNG As Range Set RNG = Range("C2:N20") If Not Intersect(Target, RNG) Is Nothing Then With RNG.Interior 'grün .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.599993896298105 End With With Target.Interior 'grau .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.149998474074526 End With End If End Sub

Hallo nochmal

so?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim RNG1 As Range, RNG2 As Range

    Set RNG1 = Range("C2:N20")

    Set RNG2 = Range("B2:B20")

    

    With RNG1.Interior 'Bereich komplett = grün

        .ThemeColor = xlThemeColorAccent6

        .TintAndShade = 0.599993896298105

    End With

    

    With RNG2.Interior 'Spalte B = ohne

        .Pattern = xlNone

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    

    If Not Intersect(RNG1, Target) Is Nothing Then

        With Intersect(Union(RNG1, RNG2), Target.EntireRow).Interior 'Zeile im Bereich plus B =grau

            .ThemeColor = xlThemeColorDark1

            .TintAndShade = -0.149998474074526

        End With

        

        With Target.Interior 'Aktive Zelle = grün

            .ThemeColor = xlThemeColorAccent6

            .TintAndShade = 0.599993896298105

        End With

    End If



End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Zeile der aktiven Zelle farbig formatieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread