Dit is voldoende

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
    'je code
 End If
End Sub


*edit*

@Veerj,

Is het ook mogelijk om via de worksheet_change de macro te laten opstarten als cel A1 gewijzigd word via een kringveld?
En zoja, hoe doe ik dat dan?

Alvast dank.

groetjes,
BlackDevil

Niet helemaal

Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.Address()
Debug.Print Target.Address(0, 0)
End Sub


Hallo BlackDevil,

Hopelijk mogen er ook anderen reageren? 

Dat werkt inderdaad niet, maar je kan wel 'gewoon' een macro aan je kringveld koppelen, net zoals je dat met bv. een opdrachtknop of een afbeelding zou doen.
Dat Change-event heb je dan helemaal niet nodig.

@ Veerj,
Ik wil niet vervelend doen maar "Target.Address(0, 0)"? Is toch helemaal hetzelfde als "Target.Address"(?)

Tuurlijk mogen anderen ook reageren 

En ja, jouw tip is dan een betere oplossing voor mij, bedankt 
Had niet meteen die mogelijkheid gekoppeld  weer wat verstrooid vrees ik 

Bedankt alweer voor al de hulp. 

groetjes,
BlackDevil

Goedemorgen allen,

Voor een bepaalde opmaak van een te zoeken enkele cel gebruik ik volgende code-structuur.

For Each dag In arrFeestdagen
   Set cel = Range("C7:AW12, C16:AW21").Find(dag)
   If Not cel Is Nothing Then
       cel.Font.Italic = True
       cel.Font.Bold = True
   End If
Next dag

Nu heb ik nog enkele andere opmaak-situaties waarbij de gevonden cel eerst uitgebreid moet worden.

situatie 1 : gevonden cel uitbreiden met de 6 volgende cellen (naar rechts)

situatie 2 : gevonden cel eerst uitbreiden met 6 volgende cellen (naar rechts), vervolgens de 7 geselecteerde cellen uitbreiden met de onderliggende 7 opeenvolgende cellen. (dus 14 cellen in totaal).


Hoe kan ik best bovenstaande code-structuur uitbreiden/aanpassen om eerst de gevonden cel uit te breiden naar de grotere selectie en vervolgens de volledige selectie in zijn geheel te omkaderen met een dunne lijn?

Alvast mijn oprechte dank.


groetjes,
BlackDevil

@MollyVH,

Hartelijk dank voor je voorbeeld.

Voor situatie 2 zal dat dan het volgende moeten worden (vermoed ik) :
   If Not cel Is Nothing Then
        With cel.Resize(2, 7)
            .BorderAround 1
        End With
   End If

groetjes,
BlackDevil

@MollyVH,

Inderdaad, als er maar één actie nodig is kan het in één lijntje code.
Was in mijn voorbeeldje, in mijn haast, vooral gefocust op die Resize 

@allen,

Voor mijn volgende situaties was het wat ingewikkelder omdat daar, in tegenstelling tot de eerste twee situaties, de gezochte cel (datum) niet elk jaar op dezelfde weekdag valt.
Dus moest ik werken met een Select Case mbt de weekdag.
Ik heb dit volledig tot een goed einde gekregen MAAR doordat er 7 mogelijkheden zijn heb ik dus in mijn Seclect Case 7x een Case met toch wel redelijk wat lijntjes code waardoor het geheel wel zéér lang wordt.
Nu vroeg ik mij dus af of dergelijke code-structuur per Case misschien ingekort zou kunnen worden.
Indien het niet mogelijk is dan zet ik die specifieke opmaakcodes wel in een aparte module hoor.
Ben gewoon benieuwd om eventuele andere mogelijkheden te leren.

Hieronder zo een code-blokje uit één Case-mogelijkheid :
            Case 2
                With cel4.Resize(1, 6)
                    .Borders(xlEdgeLeft).LineStyle = 1
                    .Borders(xlEdgeTop).LineStyle = 1
                    .Borders(xlEdgeRight).LineStyle = 1
                End With
                cel4.Offset(1, -1).Borders(xlEdgeTop).LineStyle = 1
                With cel4.Offset(1, -1).Resize(3, 7)
                    .Borders(xlEdgeLeft).LineStyle = 1
                    .Borders(xlEdgeRight).LineStyle = 1
                End With
                cel4.Offset(3, 3).Resize(1, 3).Borders(xlEdgeBottom).LineStyle = 1
                With cel4.Offset(4, -1).Resize(1, 4)
                    .Borders(xlEdgeLeft).LineStyle = 1
                    .Borders(xlEdgeRight).LineStyle = 1
                    .Borders(xlEdgeBottom).LineStyle = 1
                End With



Alvast dank.
groejes,
BlackDevil