Trage werking van macro?

[ZIPPO_2]

Ik heb alles juist ingegeven en aangepast maar het inkleuren lukt nog steeds niet.

 

[Demeter]

Heb de code welke ik als laatste heb gepost op de juiste plaats gezet? of heb je het over getikt (kan namelijk dat je per ongeluk een foutje hebt gemaakt)?

ps.
hij werkt wel maar op 1 cel te gelijk.

 

[ZIPPO_2]

Heb alles ingevuld zoals het moet maar het inkleuren doet ie niet.
Bijgevoegd een oefenblad met de code's . Misschien heb ik iets over het hoofd gezien.

 

[ZIPPO_2]

dit is het juiste

 

[Demeter]

Uhum...........

With Range(Targetadres)

ipv:

With Targetadres

We vullen in de tabbladmacro de variabele Targetadres met het adres van de geselecteerde cel (Target). Deze laten we meenemen naar de macro updaten waarin we hem gebruiken als een celbereik (Range).

 

[Demeter]

Voor je wissen macro zou ik de volgende code:

Sub Wissen()

Application.EnableEvents = False
    With ActiveSheet.Range("A1:S14")
        .ClearContents
        .Font.ColorIndex = 1
        .Interior.ColorIndex = 0
    End With
Application.EnableEvents = True
 
End Sub

Tip: probeer zoveel mogelijk select te vermijden.
Dus Range("A1").ClearContents ipv Range("A1").Select en dan Selection.ClearContents.

 

[ZIPPO_2]

Het werkt
Bedankt Ferenc en al die anderen die hun steentje hebben bijgedragen

 

[Demeter]

En voldoet het ook aan je snelheids eis?

Graag gedaan.

 

[ZIPPO_2]

:thumb: jepz prima :thumb:
het belangrijkste is dat ik weeral wat bijgeleerd heb waardoor ik weer wat kan oefenen en experimenteren
nogmaals bedankt