|
Hi,
dazu sollte man mehr über den Aufbau bzw die Positionen Deiner Tabellen wissen.
Aber so könnte es ungefähr ausschauen:
1) Folgendes kommt in ein allgemeines Modul (mdlPublicVariablen)
Option Explicit
Public c As Excel.Range
2) Codebereich DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Application.EnableEvents = False
Application.Goto Reference:=ThisWorkbook.Worksheets(1).Range("A1")
Set c = ActiveCell
Application.EnableEvents = True
End Sub
3) Codebereich des Tabellentblatts, welche die Tabellen hostet
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
c.Interior.Color = xlNone
Target.Interior.Color = RGB(255, 0, 0)
Set c = Target
End If
End Sub
|