Vestics Beleggers Netwerk

Ik heb een macro in Excel gemaakt. als ik op de bovenste cel in een kolom ga staan, dan wordt bij macro uitvoeren deze cel bewerkt, zoals in de macro bedoelt. Ik wil echter alle cellen in die kolom laten bewerken door de macro, maar weet niet hoe ik dit moet doen. Hoe moet ik de macro verder programmeren om alle cellen in de kolom te bereiken ?
Kan de macro ook automatisch stoppen wanneer alle ingevulde cellen bewerkt zijn ?
Hopelijk kan iemand mij helpen.
Wim van der Lingen, Wijk bij Duurstede
E-mail: wvdl@wanadoo.nl
Tel.: 0343-574914 ?

Door de selectie in de macro uit te breiden naar:

Columns("A:A").Select

Anders even de inhoud van de macro hier plaatsen.

Bedankt voor de reactie.
De aanvulling op de macro werkt niet, omdat ik een Nederlandstalige Excel heb. Kan deze aanvulling in het Nederlands ?
Wat betekent het figuurtje in de aanvulling ?
Bedankt, ?Wim

Het is gewoon de instructie om de hele kolom te selecteren en werkt ook in de NL versie van excel.
Het figuurtje is het haakje sluiten.

Tot mijn spijt werkt de macro nog niet.
Voor diegene die mijn vraag beantwoord heeft het volgende voorstel:
Ik geef hier onder weer, wat ik met deze simpele macro wil doen en misschien kan ik de complete macro als bijlage via mijn E-mail krijgen. Indien de beantwoorder dit wil, zou ik dan ook graag zijn telefoonnummer ontvangen, zodat ik hem kan bellen als er alsnog een probleem is.
Na het aanvullen van de macro met het opgegeven commando krijg ik de foutmelding:
? ?Compileerfout:
? ?Syntaxisfout

De volgende kolom wil ik bewerken:
AEXC03092400
AEXC03092700
AEXc03092800
? ? enz. (ca. 300 regels)

Ik wil in elke cel de eerste 3 posities verwijderen, zodat ik de volgende kolom krijg:

C03092400
C03092700
C03092800
? enz.

Mijn macro werkte dus wel in 1 cel.

Bij voorbaat mijn hartelijke dank

Wim van der Lingen

Met de onderstaande macro krijg je in kolom B precies te staan wat jij wilt.



Sub Test()
? ?
? ?ScreenUpdating = False
? ?Range("B1").Select
? ?ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,9)"
? ?Application.CutCopyMode = False
? ?Range("B1").Select
? ?Selection.Copy
? ?Columns("B:B").Select
? ?Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
? ? ? ?SkipBlanks:=False, Transpose:=False
? ?Range("B1").Select
? ?Application.CutCopyMode = False

End Sub

En al die vervelende smoeltjes zijn dus de haakjes sluiten