Zellbereich farblich markieren

[DartDidi]

Hallo in die Runde,
ich würde gerne den Bereich E4:G4 in einem Tabellenblatt grün markieren, wenn sich der Eingabe-Cursor in einer dieser Zelle E8:E27 (Eingabebereich für Spieler 1) befindet.
Wenn der Cursor den Eingabebereich wieder verlässt oder das Programm beendet wird, dann soll die ursprüngliche Formatierung wieder sein.
Das ganze möchte ich in einem Dart-Scorer Programm für 3 Spieler einbauen. 
Der Bereich E4:G4 sind verbundene Zellen wo der Name des ersten Spielers eingetragen ist, in E8 bis E28 werden dann dessen Wurfergebnisse eingetragen.
Das ganze soll dann auch für Spieler 2 ( H4:J4 mit den Eingabebereich H8:H27) und Spieler 3 ( K4:M4 mit dem Eingabebereich K8:K27) so funktionieren. 
Das soll dazu dienen, dass man auf dem Monitor besser erkennt wer gerade zum Werfen dran ist.
Vielen Dank im Voraus 
Gruß Didi

[Kuwer]

Hallo Didi,

ins VBA-Modul Tabelle2(S1L1):

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Long
  Dim rngOben As Range, rngUnten As Range
  Set rngOben = Range("E4:G4,H4:J4,K4:M4")
  Set rngUnten = Range("E8:E27,H8:H27,K8:K27")
  For i = 1 To rngOben.Areas.Count
    If Not Application.Intersect(ActiveCell, rngUnten.Areas(i)) Is Nothing Then
      rngOben.Areas(i).Interior.Color = RGB(0, 255, 0)
    Else
      rngOben.Areas(i).Interior.ColorIndex = xlAutomatic
    End If
  Next i
End Sub

Gruß Uwe

[DartDidi]

Hallo Uwe,
ich sage vielen Dank, es funktioniert!
Gruß Didi