Ik wil bepaalde waarden die verticaal in een kolom staan naar een regel horizontaal copieeren.
Hieronder staat een Sub waar ik alleen verticaal kan copieeren.
Bestaat het ook om van verticaal naar horizontaal te copieeren?
Dank
Code: Selecteer alles
sub KopyWaarden
'alleen verticaal of horizontaal copieeren is mogelijk met deze macro
dim oSheet
oSheet=thiscomponent.currentcontroller.activesheet
oSourceRange = oSheet.getCellRangeByName("I13:I20")
oDataArray = oSourceRange.getDataArray
oDestRange = oSheet.getCellRangeByName("B30:b37")
oDestRange.setDataArray(oDataArray)
end sub