Celverwijzing uit 500 Excel sheets

[fozziebear]

Goedenmorgen,

in 1 map staan een 500 tal excell sheets waarvan ik van 3 cellen de waardes wil kopieren naar een nieuwe excell sheet. als ik de normale weg zou volgen dus celverwijzingen naken moet ik er dus 500 x 3 aanmaken. De waardes zouden naast elkaar moeten komen staan inclusief de filenaam dus bijv.:

Kolomnaam
File Naam waarde 1 waarde 2
6250 XYZ € 1 € 2

De cellen vanwaaruit verwezen moet worden zijn altijd hetzelfde. Helaas zijn de filenamen niet opvolgend maar altijd nummeriek en 4 cijfers. Is dit met vba op te lossen?

 

[Cobbe]

Als ik het goed begrepen heb moet je met deze code al een stuk in de goede richting komen:

Sub test()
For ws = 2 To Sheets.Count
With Sheets("Totaal")
    Cells(ws, 1) = Sheets(ws).Name
    Cells(ws, 2) = Sheets(ws).waarde1
    Cells(ws, 2) = Sheets(ws).waarde2
    Cells(ws, 2) = Sheets(ws).waarde3
End With
Next ws
End Sub

waarde1:waarde2..... nog aanpassen aan de celverwijzing.
En Blad "Totaal" eerst invoegen

Cobbe.

 

[Wigi]

Als ik het goed begrepen heb

Volgens mij niet want het gaat om verschillende bestanden en niet tabbladen.

 

[Cobbe]

Ik dacht al zoiets:
Maar dit stond er toch duidelijk, of niet?

500 tal excell sheets - nieuwe excell sheet

Als het niet zo is, het zij zo.

Cobbe

 

[Ginger]

Ik zou kiezen voor een van de vele mogelijkheden die hier op de site al zijn geboden met het verzamelen van 'bestandsnamen in een sheet'. Daarmee kan je kolom A vullen. Vervolgens werk je in kolom B en C met de INDIRECT-functie. Dat lijkt mij de makkelijkste weg.

Groet, Leo

 

[fozziebear]

Ik heb op de site van Wigi al iets gevonden maar daar kan ik alleen een cel of een bereik uit alles halen.( van de MVP Excell) Ik zal dat eerst een proberen ik meld mij weer