Hallo Arnold,
Je bedoelt deze?
Sheets("Budget").Cells(teller, 24).Value = Sheets("Terugkerende_transacties").Cells(aankomend, 1).Value
Sheets("Budget").Cells(teller, 25).Value = Sheets("Terugkerende_transacties").Cells(aankomend, 2).Value
Sheets("Budget").Cells(teller, 26).Value = Sheets("Terugkerende_transacties").Cells(aankomend, 3).Value
Sheets("Budget").Cells(teller, 27).Value = Sheets("Terugkerende_transacties").Cells(aankomend, 4).Value
Probeer die eens te vervangen door:
Sheets("Budget").Cells(teller, 24).Resize(, 4) = Application.Transpose(Application.Transpose(Sheets("Terugkerende_transacties").Cells(aankomend, 1).Resize(, 4)))
Groetjes,
Molly