hoe kan dit korter?

[whiteboy]

Worksheets("stoppersoverzicht").Cells(WrRij, "A").Interior.ColorIndex = 36 
Worksheets("stoppersoverzicht").Cells(WrRij, "A") = Worksheets("Opdr.'n-invoer").Cells(StRij, "A")

 

[Wigi]

With Sheets("stoppersoverzicht").Cells(WrRij, "A")
        .Interior.ColorIndex = 36 
        .Value = Sheets("Opdr.'n-invoer").Cells(StRij, "A").Value
End With

Wigi

 

[whiteboy]

Bedankt wigi!
Is dit kort genoeg

While Worksheets("Opdr.'n-invoer").Cells(StRij, "A") <> ""
     If Worksheets("Opdr.'n-invoer").Cells(StRij, "BN").End(xlToLeft).Value = "uit dienst" Then
      WrRij = WrRij - 1
      Else
      With Sheets("stoppersoverzicht").Cells(WrRij, "A")
        .Interior.ColorIndex = 36
        .Value = Sheets("Opdr.'n-invoer").Cells(StRij, "A").Value
      End With
      With Sheets("stoppersoverzicht").Cells(WrRij, "B")
        .Interior.ColorIndex = 36
        .Value = Sheets("Opdr.'n-invoer").Cells(StRij, "F").Value
      End With
      With Sheets("stoppersoverzicht").Cells(WrRij, "C")
        .Interior.ColorIndex = 36
        .Value = Sheets("Opdr.'n-invoer").Cells(StRij, "D").Value
      End With
      With Sheets("stoppersoverzicht").Cells(WrRij, "D")
        .Interior.ColorIndex = 36
        .Value = Sheets("Opdr.'n-invoer").Cells(8, Worksheets("Opdr.'n-invoer").Cells(StRij, "BO").End(xlToLeft).Column)
      End With
        
        Sheets("stoppersoverzicht").Cells(WrRij, "E") = "=numsort(RC[-1])"
      End If
        StRij = StRij + 1
        WrRij = WrRij + 1
    Wend

 

[Wigi]

Zet die sheets zoals o.a. "Opdr.'n-invoer" in een variabele. Stel dat de naam wijzigt, dan kan je dat overal in de code gaan aanpassen... (OK je kan zoeken en vervangen, maar dan nog).