vereenvoudiging roulatiemacro

[werwer1]

Ik heb een vba-macro gemaakt maar die is nogal groot/lang.
Is er een snellere/kortere manier of zou dat voor de snelheid niet uitmaken?
Voor het gemak heb ik eea in de bijlage gezet.

Bekijk bijlage Map1.xlsm

Ik ben benieuwd naar uw bericht.
Vriendelijke groet,

 

[OctaFish]

Ik zie nog niet helemaal wat de bedoeling is, maar je krijgt meer overzicht als je er een Select Case van maakt:

With ActiveSheet
    .Unprotect
    Select Case Range("i7").Value
        Case ""
            .Range("i7").Value = Range("b4").Value
            .Range("j7").Value = Range("b5").Value
            .Range("j6").Value = Range("b6").Value
            .Range("j5").Value = Range("b7").Value
            .Range("i5").Value = Range("b8").Value
            .Range("i6").Value = Range("b9").Value
        Case Range("b4").Value
            .Range("i7").Value = Range("b5").Value
            .Range("j7").Value = Range("b6").Value
            .Range("j6").Value = Range("b7").Value
            .Range("j5").Value = Range("b8").Value
            .Range("i5").Value = Range("b9").Value
            .Range("i6").Value = Range("b4").Value
        Case Range("b5").Value
            .Range("i7").Value = Range("b6").Value
            .Range("j7").Value = Range("b7").Value
            .Range("j6").Value = Range("b8").Value
            .Range("j5").Value = Range("b9").Value
            .Range("i5").Value = Range("b4").Value
            .Range("i6").Value = Range("b5").Value
        Case Range("b6").Value
            .Range("i7").Value = Range("b7").Value
            .Range("j7").Value = Range("b8").Value
            .Range("j6").Value = Range("b9").Value
            .Range("j5").Value = Range("b4").Value
            .Range("i5").Value = Range("b5").Value
            .Range("i6").Value = Range("b6").Value
        Case Range("b7").Value
            .Range("i7").Value = Range("b8").Value
            .Range("j7").Value = Range("b9").Value
            .Range("j6").Value = Range("b4").Value
            .Range("j5").Value = Range("b5").Value
            .Range("i5").Value = Range("b6").Value
            .Range("i6").Value = Range("b7").Value
        Case Range("b8").Value
            .Range("i7").Value = Range("b9").Value
            .Range("j7").Value = Range("b4").Value
            .Range("j6").Value = Range("b5").Value
            .Range("j5").Value = Range("b6").Value
            .Range("i5").Value = Range("b7").Value
            .Range("i6").Value = Range("b8").Value
        Case Range("b9").Value
            .Range("i7").Value = Range("b4").Value
            .Range("j7").Value = Range("b5").Value
            .Range("j6").Value = Range("b6").Value
            .Range("j5").Value = Range("b7").Value
            .Range("i5").Value = Range("b8").Value
            .Range("i6").Value = Range("b9").Value
    End Select
    .Protect
End With

En een íets kortere code

 

[Cobbe]

Kan het ook zo?