Opgelost VBA verbergen lege kolommen en kopiëren gegevens

[snb]

Private Sub ToggleButton1_Click()
   For each it in Listobjects(1).listcolumns
      it.Range.columns.Hidden=(Application.sum(it.range)=0)*ToggleButton1
   next
End Sub

 

[serpent xx]

Hoi Peter, in mijn enthousiasme gisteren was het mij idd ontschoten dat vraag 2 nog openstond. Ik heb er voorlopig voor gekozen om dit handmatig te doen. Mocht iemand nog een idee hebben, hoor ik dat graag.
In ieder geval dank iedereen voor het meedenken.