Blackdevil, je kan een andere sheet niet selecteren zoals je doet in je procedure. Als je 't zo doet, werkt het wel...
With Sheets(oudblad)
'----- betreffende rij 'markeren' als verwijderd dmv rode inkleuring
kol = .Cells(3, Columns.Count).End(xlToLeft).Column
' .Range(.Cells(oudrij, 1), .Cells(oudrij, kol)).Select
' Selection.Interior.Color = vbRed
' Selection.Font.Strikethrough = False
' Selection.Font.Color = RGB(58, 56, 56)
With .Range(.Cells(oudrij, 1), .Cells(oudrij, kol))
.Interior.Color = vbRed
.Font.Strikethrough = False
.Font.Color = RGB(58, 56, 56)
End With
End With
Helaas loop je dan tegen een Error 9 aan in je verdere afwerking. Dat zit in dit blokje...
'----- procedure voor 'onverwerkte items'
If Cells(i, 8) = "" Then
bronrij = i
omschrijving = Cells(i, 2)
aantal = Cells(i, 3)
actloc = Cells(i, 4)
handeling = Cells(i, 5)
Cells(i, 6) = handeling
doelblad = Cells(i, 6).Value
With Sheets(doelblad)
doelrij = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(doelrij, 1) = doelrij - 3
.Cells(doelrij, 2) = omschrijving
.Cells(doelrij, 3) = aantal
.Cells(doelrij, 4) = actloc
.Cells(doelrij, 5) = "start"
.Cells(doelrij, 6) = bronrij
End With
De variabele Doelblad is leeg. Daar mag je dan zelf ff mee aan de slag wat hier mis gaat....