Aantal kolomen in tabblad 2 kopieren (aantal wordt aangegeven in tabblad 1)

[HBot]

Beste.

Ik geef in tabblad 1 (bv cel a1) aan hoeveel kolommen ik extra wil.
Bv 3 dan druk ik op de knop en..

OP tabbald 2 heb ik 1 kolom standaard welke dus 2x gekopierd moet worden naast kolom ...
Als cel A1 op 1 staat hoeft er niet gekopieerd te worden.
Bekijk bijlage Test kolom toevoegen.xlsm
bvd
Botje

 

[VenA]

Geen idee van het nut en waarschijnlijk is de vraag ook niet compleet.

Probeer maar eens

Sub VenA()
  If IsNumeric([A1]) And [A1] > 1 Then Sheet2.Columns(2).Copy Sheet2.Columns(3).Resize(, [A1] - 1)
End Sub

 

[HBot]

VenA

bedankt, je hebt gelijk dit is maar een klein onderdeeltje van het geheel, maar soms loopt je tegen iets aan en dan is de hele file wat complexer om uit te leggen en op te sturen.
Maar gelukt even puzzelen ( naam van tabblad heeft geen invloed op deze macro) maar het werkt.
Ik kan weer verder met de volgende stap
gr
henny