VBA celinhoud "merged" cells wissen

[pixcel]

Over een wat andere boeg, door gebruik te maken van celstijlen. Dat vraagt wat discipline aan de voorkant maar maakt het vaak eenvoudiger aan de achterkant. Stijlen houden je document klein en snel, maar vooral beter onderhoudbaar.
Dit voorbeeld heeft vier stijlen, klonen van de ingebouwde stijlen en daarna nog wat aangepast.
Gebruik enter, tab of de pijltjestoetsen om door het "formulier" te navigeren.
Gebruik Alt-F8 om het formulier te wissen.

Public Sub WisInvoer()
    Dim cl As Excel.Range
    For Each cl In Me.UsedRange
        If cl.Style = "MyInput" Then cl.Value = vbNullString
    Next
End Sub

Dit kan natuurlijk beter...

 

[Dedeke]

@Cow18; @VenA;@Popipipo;@snb

Allemaal geweldig bedankt voor tijd en moeite.

Code werkt volledig naar mijn verwachtingen. En begin er ook wat van te begrijpen.
Vele formules aangepast want deze =ALS(CY59="ja";3;0) is niet hetzelfde als =ALS(CY59="ja";"3";"0") dank hiervoor Vena. Veel werk gehad om aan te passen
Opmaak van cellen ook weer wat uitgeleerd waardoor geen "merged cellen " meer , nu niet en (zeg nooit nooit) dus ga ik ook niet doen
Dat er voor elke code misschien ook nog een andere code is

Tot een volgende keer.

 

[VenA]

Dan mag je nog een keer wat aanpassen:d

=3*(CY59="ja")