automatisch doorrekenen

[dirk hogendoorn]

in heb in rij a van kolom a tot q cijfers staan die elkaar opvolgen met 1. Dus a1=1 b1=2 c1=3 etc. Nu wil ik een kolom invoegen maar wil ik wel dat de optelling doorgerekend wordt.

dus tussen kolom b en c een kolom invoegen, maar ik wil dan wel dat deze nieuwe kolom ook mee telt in de optelling, dus dan ook weer a1=1, b1=2, c1=3 etc.

Ik zelf had al: vorige cel +1, maar als je dan tussenvoegt pakt de formule de eerst aangegeven cel.

 

[HSV]

Met in A1: =KOLOM() en doorvoeren naar Q1 werkt wel, maar de nieuwe ingevoerde kolom blijft uiteraard leeg.

 

[dirk hogendoorn]

is er een mogelijkheid dat de nieuwe toegevoegde kolom ook een nummer krijgt?

 

[HSV]

is er een mogelijkheid dat de nieuwe toegevoegde kolom ook een nummer krijgt?

Met VBA zou dit kunnen, maar ben een echte beginneling in VBA, en heb dit eigenhandig gedaan via de HELP, en wat aanpassingen.
Kolom invoegen, macro laten draaien, klaar.
Het zal vast wel beter kunnen, maar voor mij is dit al heel wat.

 

[Roncancio]

Helemaal niet slecht.:thumb::thumb:

Je zou inderdaad ....

    Set myRange = Worksheets("Blad1").Range("A1:Q1")
    myRange.Formula = "=COLUMN()"

... kunnen samenvoegen tot 1 regel...

    Worksheets("Blad1").Range("A1:Q1").Formula = "=COLUMN()"

.. dan zou je zelfs MyRange niet hoeven te gebruiken in je code.
Je code zou dus zo ook kunnen.

    Sub kolomnummer()
    Worksheets("Blad1").Range("A1:Q1").Formula = "=COLUMN()"
    Worksheets("Blad1").Range("A1:Q1").Font.Bold = True

End Sub

..maar al met al mijn complimenten.

Met vriendelijke groet,


Roncancio

 

[dirk hogendoorn]

Hartelijk dank voor de oplossing, maar is er ook een mogeljkheid zonder VBA?

 

[Roncancio]

Hartelijk dank voor de oplossing, maar is er ook een mogeljkheid zonder VBA?

Volgens mij niet.
Wat je wel kan doen is een Change-Event aan het werkblad toevoegen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = Range("A:A").Cells.Count Then
    Worksheets("Blad1").Range("A1:Q1").Formula = "=COLUMN()"
    Worksheets("Blad1").Range("A1:Q1").Font.Bold = True
End If
End Sub

Zodra er een kolom wordt toegevoegd, dan krijgt ook de nieuwe kolom de formule.

Met vriendelijke groet,


Roncancio

 

[dirk hogendoorn]

Vraag is opgelost

Iedereen hartelijk bedankt,

Dit kan ik nog begrijpen en het werkt!!

ik zet de vraag als opgelost

 

[HSV]

Iedereen hartelijk bedankt,

Dit kan ik nog begrijpen en het werkt!!

ik zet de vraag als opgelost

Ik weet dat de vraag als opgelost staat gemarkeerd, en wil het zeker niet weer openen.
Maar ik wil Roncancio nog wel even bedanken voor de complimenten en de uitbreiding van de code.
Zo leer ik er weer mooi van. :thumb: