hernoemen van inhoud van bestanden in een map (excel)

[hotpop]

Hallo,
Ik zit met een groot probleem en hoop dat iemand mij hiermee kan helpen. Ik heb een grote hoeveelheid bestanden verdeeld over meerdere mappen in deze mappen zitten meerdere excel documenten. Nu wil ik met een eenvoudige handeling van de complete map de cellen van alle exceldocumenten waar b.v 123456 in staat vervangen door b.v. 567890.
Het is het zelfde als de standaard functie van "vervangen" maar dan uitgebreider naar een complete map.
Probleem is dat ik anders ieder document moet openen

Alvast bedankt voor de reacties

 

[mumzel]

Welkom op Helpmij

Bericht is verplaatst naar de juiste sektie

 

[snabbi]

Hoe je een macro kan invoegen staat onderin in mijn sig.

Open een nieuw excelbestand, zet deze macrocode er in en run het:

Sub test()
Dim pad As String
Dim eerste As String
Dim tweede As String
Dim bestand As String

'pad is de map waar de hele mikmak zich bevindt
pad = "c:\excel\wijzig\"

'eerste is de letter of cijferreeks die vervangen moet worden
eerste = "123456"

'tweede is waardoor het vervangen moet worden
tweede = "456789"

'de eerste keer dat we Dir aanroepen krijgen we de naam van het eerste bestand
'elke volgende keer dat we dir() aanroepen krijgen we de naam van het volgende
'bestand
bestand = Dir(pad)

'Hier zorg ik er voor dat je niet ziet dat hij alles opent en sluit
Application.ScreenUpdating = False

'zolang we nog steeds een nieuw bestand hebben
While bestand <> ""
'hier openen we dat bestand
Workbooks.Open (pad + bestand)

'hier gaan we de zooi vervangen
'dit doen we via Identieke celinhoud, dus niet een gedeelte van de cel
'maar de hele cel moet voldoen aan de voorwaarde
Cells.Replace What:=eerste, Replacement:=tweede, LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'opslaan en afsluiten
Workbooks(bestand).Save
Workbooks(bestand).Close
Wend
End Sub

 

[hotpop]

bedankt voor je reactie
Ik ben niet zo,n kei in macro's dus het zal wel even puzzelen worden
Maar ik ga het proberen

Groet Hotpop