Data uit een cel halen

[basvankrimpen]

Hi,

Ik heb een vraag of het mogelijk is om uit verschillende tabbladen de tekst uit een cel te halen. Uit de verschillende tabbladen moet telkens uit dezelfde cel de data komen.

Ik heb de volgende code gebruikt om de namen van de tabbladen er uit te halen.

Sub ListWorkSheetNamesNewWs() 
    Dim xWs As Worksheet 
    On Error Resume Next 
    Application.DisplayAlerts = False 
    xTitleId = "Overview" 
    Application.Sheets(xTitleId).Delete 
    Application.Sheets.Add Application.Sheets(1) 
    Set xWs = Application.ActiveSheet 
    xWs.Name = xTitleId 
    For i = 2 To Application.Sheets.Count 
        xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name 
    Next 
    Application.DisplayAlerts = True 
End Sub

Bijgevoegde excel laat zien welke cellen het zijn.

Hoor graag of wat ik mogelijk is. Dit zou mijn ongeveer een halve dag werk schelen

 

[Quiby]

Zoiets?
Bekijk bijlage testdoc Q.xlsm

De macro gaat wel van het volgend uit, wanneer er iets aan de sheets wordt aangepast dient hier rekening mee gehouden te worden.
1) er wordt vanuit gegaan dat de naam van de sheet in kolom a staat
2) er wordt vanuit gegaan dat de eerste sheetnaam van de overview in cel a3 staat

 

[basvankrimpen]

Yes! Exact wat ik nodig had!! top dank je wel

 

[basvankrimpen]

Ik heb toch nog een vraag, de data wordt nu een harde waarde en de data kan soms wijzigen in de sheets. Is he tmogelijk om deze te laten linken? Heb het nu zelf geprobeerd maar kom er nog niet uit.

Dank weer voor de hulp!