Office: VBA Hintergrundfarbe ändern wenn bestimmte Zelle ausgewählt

Hallo Excel Profis
ich habe mal wieder ein Problem. :-D
In einer Tabelle möchte ich die Hintergrundfarbe ändern, wenn andere Zellen ausgewählt werden um etwas einzugeben.
Also in der Beispieltabelle steht in der Zelle A6 ein Name.
Wenn jetzt eine der Zellen zwischen C5:AH5 ausgewählt um etwas einzugeben, möchte ich das die Zelle A6 eine andere Hintergrundfarbe bekommt (z.B. Hellgrün). Aber nur solange einer der Zellen C5:AH5 angesteuert wird.
Genauso dann mit der Zelle A8 (Name) und den Zellen C7:AH7.
Geht das mit einem Makro über den Code?
Vielen Dank für eure Mühe
Gruß Posaune

 

Hallo!

Magst du das nicht lieber über Kommentare steuern?
Die Farbänderung (und vor allen Dingen wieder ZURÜCK) ist wesentlich aufwändiger.

 

Hallo Schatzi
kann ich mir momentan nicht vorstellen wie das aussieht, aber klar. Es geht nur darum besser zu sehen in welcher Reihe zum Namen man sich befindet.
Gruß Posaune

 

Hallo,

also so wie ich das sehe willst du die einfärbung der Übersicht wegen?
dann könntest du z.B. auch sowas nehmen Tabellenblatt Rechtsklick-> Code anzeigen und da einfügen.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Rows(Target.Row).Select
Target.Activate
Application.EnableEvents = True
End Sub

Gruß

 

Hallo Gook
im Prinzip ist das so wie ich mir das vorstelle, allerdings soll nur die jeweilige Zelle A6 oder A8 oder A10...... so gekennzeichnet werden.
Der Sinn ist nur übersichtlichkeit.
Wenn in der Zelle A6...... ein Vereinskollegenname steht und nun in den Zellen AH5 eine Eingabe gemacht wird ist die Übersichtlichkeit schlecht, da man nicht in der selben Zeile ist wir der Name steht.
Danke für die Vorschläge
Gruß Posaune

 

Dann probier mal so ein Code

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("a1:a100")
For Each i In bereich
If i.Interior.ColorIndex <> 15 Then
i.Interior.ColorIndex = xlColorIndexNone
End If
Next i
If Cells(Selection.Row, 1).Interior.ColorIndex <> 15 Then
Cells(Selection.Row, 1).Interior.ColorIndex = 5
End If
End Sub

Musst aber den Blattschutz rausnehmen...

Gruß

 

Hallo Gook
schon fast Perfekt.
Nur soll die Zelle A6 sich Blau färben wenn ich in der Zeile C5:AH5 aktiv bin, da die Zellen C6:AH6 gesperrt sind weil Formeln darin enthalten sind. Wenn das jetzt auch noch geht wäre es super Perfekt.
Danke
gruß Posaune

 

Hallo Gook und freunde
habe die Lösung
Hinter "Rows" ein "*1" einfügen und jetzt stimmts
Danke
für euer Support