Clever-Excel-Forum

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

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

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

DartDidi

Kuwer

DartDidi