🚀 go-pugleaf

>> Is het mogelijk om in een kolom van een Excel werkblad bij iedere cel met
>> een inhoud iets toe te voegen?
>> Praktisch zou 'k in een kolom van ongeveer 400 cellen telkens '1409-'
>> willen bijvoegen.

> In Excell 97 of hoger
> Een macro aanmaken in het bestand met volgende code erin:
>
> counter = 0
>     MyNum = 1
>     Do Until MyNum = 400
>         MyNum = MyNum + 1
>         counter = counter + 1
> wa = ActiveCell.Value
> da = "1409-" & wa
> ActiveCell.Value = da
> ActiveCell.Offset(1, 0).Select
>

In basis wel ok, maar een van de 'moeilijkste' dingen uit de post is IMHO
dat het om ongeveer 400 cellen gaat, en dan ook van de macro verwacht mag
worden dat hij zelf weet hoe precies "ongeveer" is...

Een mogelijkheid: (vw. Alle rijen met inhoud opvolgend, m.a.w. geen blanco
rijen!)
(Normaal post ik niet graag volledige code - men moet zelf nog een
beetje zoeken -  maar het was te kort om te knippen ; misschien kan het nog
korter ?)

Sub Toevoegen1409()
    LaatsteLijn = Range("A1").End(xlDown).Row
    For Each Veld In Range("A1:A" + Format(LaatsteLijn))
        Veld.Value = "1409-" & Veld
    Next Veld
End Sub

ter info : de format-functie was bij oudere versies van excel (< 97 ?) niet
nodig ; bovenstaand programma kan nog zeer sterk uitgebreid worden,
bvb.afhankelijk van de huidige cel, zoals in het voorbeeld van Luc

ter info 2: met een Nederlandstalige versie van Excel zullen de commando's
natuurlijk zo'n toffe vertaling gekregen hebben ;-<

HTH
Alain