Cell selectie (Sheet_Change_Event)

[Theknurt]

Beste mede excelisten,

Heb weer een (kleine) uitdaging. Ik heb onderstaande makro in gebruik.
Alleen bij elke sheet_change, selecteerd cel "B" & keuze. (heb ik bewust gedaan)
Als ik deze regel weghaal, laat hij de laatste selectie zien. Dit is de complete regel.

Ik wil eigenlijk voor mekaar krijgen dat hij onderstaande change_event maar één keer uitvoert..... en zo de opmaak laat staan.

Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Inkeuze As Integer
Dim Stquest As String

    Application.ScreenUpdating = False
    Range("A10:Y63").Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0
    Inkeuze = Range("A68").Value
    Inkeuze = Inkeuze + 9
    Stquest = ("B") & Inkeuze & (":Y") & Inkeuze
    
    Range(Stquest).Select
    
    'Selection.Font.Bold = True
    Selection.Font.ColorIndex = 0
    Selection.Interior.ColorIndex = 22

        
    Range("B" & Inkeuze).Select
    
    Application.ScreenUpdating = True
End Sub

Snappen jullie de vraag nog een beetje ??

Wat moet ik waar aanpassen en misschien waarom ??

Txs

 

[ReneDirks]

Snappen jullie de vraag nog een beetje ??

Ik moet eerlijk zeggen: ik niet!

 

[Cheetahke]

En wanneer moet die change event dan juist plaats vinden?
Als je zo'n change-event maar 1 keer wilt laten uitvoeren, is het misschien het beste dat je je code in een aparte module steekt, en wanneer je die change-event wilt laten uitvoeren, kun je de code oproepen...

Mvg,

 

[Theknurt]

De code behoeft maar één keer te lopen, nadat bestand is geopend en er in één bepaalde cel de waarde is gewijzigd.

Ik zal het eens proberen in een aparte module te plaatsen en dan op te roepen....