1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
UnderZeroEm () Dunkelt c som spänner Dunkel rng1 som spänner Dunkel ws som arbetssedeln Uppsättningen ws = spänner (”AllAll”). Förälder För varje c spänna in (”dings”) Om UCase$ (c.Value) = ”RIKTIGT” därefter Uppsättningen rng1 = skär (spänna (”AllAll”), ws. Ror (c.Row)) rng1.Value = ”0”, Avsluta om Därefter Avsluta suben