Schriftfarbe der Zellen mit gleichen Namen, wie der angeklickten Zelle rot färben

[malan11]

Hallo Leute, ich brauche hilfe bei folgendem Problem.

Ich möchte das Name 1 nur dann rotgefärbt wird wenn ich Zelle J6 (Name 1) anklicke. Siehe Bild.

Das ganze soll nur die Übersichtlichtkeit verbessern.


Dateiupload bitte im Forum! So geht es: Klick mich!


Wenn ich dann die anderen Namen in der Spalte J anklicke soll entsprechend nur der angeklickte Name in der Tabelle rotgefärbt werden.

Wenn ich zum bearbeiten der Tabelle dann auf eine andere Zelle klicke also nicht J6 bis J22 sollen die Namen wieder schwarz dargestellt werden.

Ich weiß nicht ob das möglich ist. Wäre super wenn Ihr mir helfen könntet.

Vielen Dank und Gruß

Markus

[Kuwer]

Hallo Markus,

füge folgenden Code in das schon bestehende VBA-Modul des Tabellenblattes "Tabelle1" ein:

Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Dim rngNamen As Range, rngPlan As Range, rngZelle As Range

 Set rngNamen = Range("J3:J22")

 Set rngPlan = Range("D6:H28")

 rngPlan.Font.ColorIndex = 1   '1 = Schwarz

 If Not Application.Intersect(ActiveCell, rngNamen) Is Nothing Then

   For Each rngZelle In rngPlan

     If rngZelle.Value = ActiveCell.Value Then

       rngZelle.Font.ColorIndex = 3  '3 = Rot

     End If

   Next rngZelle

 End If

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Uwe

[Rabe]

Hi,

füge folgenden Code in das schon bestehende VBA-Modul des Tabellenblattes "Tabelle1" ein:

und dann die Datei als xlsb oder xlsm abspeichern!

[malan11]

Wow hat super funktioniert. Genau so hab ich mir das vorgestellt. Perfekt.

Vielen Dank für die Hilfe.

Gruß Markus