Excel ändern aktive Zelle Farbe, wenn innerhalb des definierten Bereichs

Question

Ich bin neu in VBA. In Excel habe ich einen definierten Bereich namens "effizient", der B2: B10 ist. Wenn ein Benutzer auf eine Zelle innerhalb dieses Bereichs klickt, möchte ich, dass sich die Zellkontur rot ändert.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    Worksheets("LookupLists").Range.Value = ActiveCell.Address 
End Sub 

Answer 1

Dieses im LookupLists Code-Abschnitt (die Sie vermutlich bereits tun):

Private Sub Worksheet_SelectionChange(ByVal target As Range) 

    Dim rng As Range 
    Set rng = Worksheets("LookupLists").Range("Efficient") 

    If Intersect(target, rng) Is Nothing Then Exit Sub 

    Application.EnableEvents = False 
    target.BorderAround ColorIndex:=3 
    Application.EnableEvents = True 

End Sub 

Dies wird die Grenze von einer Zelle ändern, die ‚angeklickt‘ auf (dh ausgewählt) ist. Beachten Sie, dass dies auch einen Rahmen um eine Gruppe ausgewählter Zellen in diesem Bereich zeichnet (dh Klicken, Halten und Ziehen der Maus) und die Zelle auch einfärbt, wenn Sie sich mit den Pfeiltasten durch den Bereich bewegen - was nicht ganz Ihren Vorstellungen entspricht. danach.

EDIT

die Grenze zu entfernen, wenn Sie an anderer Stelle klicken, können Sie diese stattdessen versuchen:

Private Sub Worksheet_SelectionChange(ByVal target As Range) 

    Dim rng As Range 
    Set rng = Worksheets("LookupLists").Range("Efficient") 

    Application.EnableEvents = False 
    If Intersect(target, rng) Is Nothing Then 
    rng.Borders.Color = xlNone 
    Else 
    target.BorderAround ColorIndex:=3 
    End If 
    Application.EnableEvents = True 

End Sub 

Aber das wird die Grenzen für jede Änderung der Auswahl entfernen. Auch der Effekt ist nicht wirklich bemerkbar, es sei denn, Sie bewegen sich in der Spalte nach oben.