Hallo,
Ik heb een code om kolommen in Range G198:R2797 om kolommen om te draaien, dit werkt, alleen ben ik formules daarna kwijt.
Code die ik nu heb is :
Dim sv
sv = Range("G198:R2797")
Range("G198").Resize(UBound(sv), 12) = Application.Index(sv, Application.Transpose([transpose(row(1:2604))]), Array(12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1))
Is er een mogelijkheid om de kolommen om te draaien met behoud van bestaande formules in deze kolommen?
Ik heb een code om kolommen in Range G198:R2797 om kolommen om te draaien, dit werkt, alleen ben ik formules daarna kwijt.
Code die ik nu heb is :
Dim sv
sv = Range("G198:R2797")
Range("G198").Resize(UBound(sv), 12) = Application.Index(sv, Application.Transpose([transpose(row(1:2604))]), Array(12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1))
Is er een mogelijkheid om de kolommen om te draaien met behoud van bestaande formules in deze kolommen?