Kolom invoegen links van bepaalde waarde?

[KimVH]

Hey,

Ik probeer een kolom in te voegen links van een bepaalde waarde.
Ik heb een aantal kolommen, die elke maand veranderen van aantal, elke maand komt er eentje bij.
Maar de laatste kolom is altijd dezelfde: "Total".
Ik wil dus een kolom invoegen links van die kolom "Total".

Kan iemand mij hiervoor een code bezorgen?

Kim

 

[gast0667]

Hey,

Ik probeer een kolom in te voegen links van een bepaalde waarde.
Ik heb een aantal kolommen, die elke maand veranderen van aantal, elke maand komt er eentje bij.
Maar de laatste kolom is altijd dezelfde: "Total".
Ik wil dus een kolom invoegen links van die kolom "Total".

Kan iemand mij hiervoor een code bezorgen?

Kim

Zoiets ?

Sub Test2()

'Even in Excel een 'naam' toekennen aan de gehele kolom 'Totaal'.
'dmv Selecteren kolom 'Totaal' --> menu 'Invoegen'--> 'Naam' --> 'Definieren' -->
'invullen van naam (bijvoorbeeld "KPercentage"

    Range("KPercentage").Select
    Selection.Insert Shift:=xlToRight

End Sub

Let op de opmaak van de cellen wordt niet overgenomen.

 

[KimVH]

Bedankt, werkt perfect!

Kim