automatisch aanpassen macro als ik kolom invoeg

[marcelwiss]

Hallo,

Ik heb ergens op dit forum gevonden hoe ik een wisselknop kan toevoegen met de volgende code om kolommen te kunnen verbergen of zichtbaar maken met een knop.

Private Sub wk_1_Click()
If wk_1.Value = True Then
wk_1.Caption = "WK 1"
Columns("G:M").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
Else
wk_1.Caption = "WK 1"
Columns("G:M").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End If
End Sub

Maar nu heb ik daar toch nog een vraag over; ik wil voor iedere week van een jaar zo'n knop maken waarmee ik dan 7 kolommen (dagen) kan verbergen of zichtbaar maken.
Maar stel dat ik nou voor kolom G een kolom wil invoegen, dan blijft in zo'n code "G:M" staan terwijl ik eigenlijk zou willen dat dat dan "H:N" zou worden want alles schuift immers een kolom op.
Is daar een simpele oplossing voor?

b.v.d.
gr.
Marcel

 

[HSV]

Met een gedefinieerde naam.
Laat onderstaande code een keer draaien, voeg een kolom in en draai de code nog een keer.

Sub hsv()
Dim nm As Name, bereik As Range, y As Long
 For Each nm In Names
  If nm.Name = "bereik" Then y = y + 1
 Next nm
    If y = 0 Then Columns("G:M").Name = "bereik"
 Range("bereik").Select
End Sub

Hier kan jij wel weer verder op borduren.

 

[marcelwiss]

Thnx, ik ga weer verder puzzelen.

gr.
Marcel