Datavalidering af cellen ved siden af

Når A1 ændres og A1 har fyldfarve rød aktiveres A2 og box popper op.
Så denne virker som en "på mindelse"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    If Range("A1").Interior.ColorIndex = 3 Then
    Range("A2").Activate
    MsgBox "Vælg Indput", vbOKOnly + vbExclamation
    End If
    End If
End Sub

Hej

Kunne det bruges?

Hejsa

Jeg beklager at jeg ikke har givet respons, men jeps det virker :-)

Kan du kort forklare mig hvad Target-funktionen gør. Hvorfor definerer man target således (ByVal Target As Range)?


Tusind tak for hjælpen!

Target-funktionen gør at funktionen bliver kørt når der sker ændring i celle A1 og kun A1.
Target As Range: for at huske hvad der sker i A1

Hvis du tilføje denne:

'aktivere ved ændring af celle A2 til tom: fjerner fyldfarve i A1
    If Target.Address = "$A$2" Then
    If Range("A2").Value = "" Then
    If Range("A1").Interior.ColorIndex = 3 Then
    Range("A1").Interior.ColorIndex = -4142
    End If
    End If
End If

Morten