Article View: be.comp.programming
Article #15281Re: Excel vraagje.
From: Luc Errijgers
Date: Tue, 24 Oct 2000 00:00
Date: Tue, 24 Oct 2000 00:00
34 lines
1726 bytes
1726 bytes
"Lucas" <luc.logghe@pandora.be> schreef in bericht
news:ENdJ5.62998$s31.1263889@afrodite.telenet-ops.be...
> 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.
>
> Konkreet :
> in cel A1 staat "12-666", ik wil daar "1409-" vooraan bijvoegen, zodat ik
de
> celinhoud "1409-12-666" krijg.
> in cel A2 staat "12-661", ik wil daar "1409-" vooraan bijvoegen, zodat ik
de
> celinhoud "1409-12-661" krijg
> enzovoort voor alle 400 cellen.
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
Deze macro toewijzen aan een knop en de eerste cel selecteren die gewijzigd
moet worden.
De macro starten.
Technical Details
Message-ID:
<IkkJ5.1837$Aw3.49961@iguano.antw.online.be>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<ENdJ5.62998$s31.1263889@afrodite.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,f5aea2c50d2aaa70 X-Google-Attributes: gidfcea4,public From: "Luc Errijgers" <gi30679@online.be> Subject: Re: Excel vraagje. Date: 2000/10/24 Message-ID: <IkkJ5.1837$Aw3.49961@iguano.antw.online.be> X-Deja-AN: 685310073 References: <ENdJ5.62998$s31.1263889@afrodite.telenet-ops.be> X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 X-Complaints-To: news-abuse@noc.online.be X-Trace: iguano.antw.online.be 972411304 62.112.3.14 (Tue, 24 Oct 2000 19:15:04 WET DST) Organization: Customer Of Online Internet Nv/Sa X-MSMail-Priority: Normal NNTP-Posting-Date: Tue, 24 Oct 2000 19:15:04 WET DST Newsgroups: be.comp.programming